Max lenght

Signaler
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
bjr
svp quelu'un peut me dire comment faire si on atteint le nombre maximum de caractere permis dans une zone de text (text1) on fait une autre action,
exemple:
j'ai 3 zones de texte, leurs max lenght c'est 5,
je veut savoir si on atteint 5 caracteres dans le txt1 un msgbox s'affiche,
merci a vous

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
128
Salut,

Fait le test dans l'événement KeyUp de ton textbox.
______________________________________
DarK Sidious
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008

quesque tu veut dire par : Fait le test dans l'événement KeyUp de ton textbox.
si je savais comment faire sa je poserai pas la qestion lol
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,

Option Explicit
'   4 zones de texte
indexées, comme une saisie d'adresse IP
Private Sub Text1_Change(Index As Integer)
    If Len(Text1(Index).Text) = Text1(Index).MaxLength Then
        Select Case Index
            Case 0, 1, 2   'on passe à la zone
suivante
                    Text1(Index + 1).SetFocus
                    
            Case 3          'dernière zone, on a fini. reste évidemment après à vérifier que
toutes les zones ont bien été remplies
                    MsgBox "dernière zone
remplie"
        End Select
    End If
End Sub

ceci est à faire en définissant par exemple tes maxlength à 3
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp