Limiter les caracteres sur un textbox

Question

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 !!!

jmf0 · Answer

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

Mayzz · Answer

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.

 7 Then

@+ Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

Claiyah · Answer

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

Limiter les caracteres sur un textbox

3 réponses

Votre réponse

Discussions similaires