Limiter les caracteres sur un textbox

Bonjour,

je viens de créer une userform avec des textbox. Dans cette dernière, il n'est possible que de saisir des chiffres. J'ai trouvé la propriété qui permet de limiter le nombre de caractère :"MaxLenght". Je l'ai mis à 7.
je voudrais faire en sorte que si un utilisateur saisit moins de 7 chiffres, il y un msgbox qui apparait et puis le textbox redevient vide.

voici le code que j'ai mis :

Private Sub TextBox2_AfterUpdate()
If IsNumeric(UserForm1.TextBox2) = False Then
MsgBox "Merci de saisir que des chiffres", vbCritical + vbOKOnly, "Numéro Client"
UserForm1.TextBox2 = ""
End If

If TextBox2.MaxLength <> 7 Then
MsgBox "le numéro client doit contenir 7 chiffres !", vbokony + vbCritical, "Numéro client"
UserForm1.TextBox2 = ""
End If

End Sub


mais ça marche pas......d'ou ma demande auprès de vous

MERCI D'AVANCE !!!

Bonjour,

Une textbox de VB6 ne subit à ma connaissance  pas d'évènement AfterUpdate .... !!!!
Tu développes bien sous VB6 (la présente section ? ... ) . Il est important, comme tu le constates, de "poster" dans la section correspondant à son outil de développement

Bonsoir,

On t'as dit de poster dans la bonne catégorie (c'est bien, tu l'as fais, enfin presque UserForm = VBA donc VB6/Langages dérivés/VBA), mais regarde les réponses laissé avant de reposeter pile_poil, t'as donné la solution.

If len(TextBox2.Text) <> 7 Then

@+ Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

comme t'a fixé le maxlenght à 7 tu doit juste controller si c'est moin de 7 ou pas
'1ere méthode: si len n'est pas 7 alors msgbox avertissement
If not (len(TextBox2.text)) = 7 Then ...

'2eme methode: si len = 7 alors fait ce que t'a à faire lol
if len(textbox2.text) = 7 then

Les yeux montrent la force de l'âme