Controle de textbox (à chaque de valeur) sans bouton

[Dam178]

Bonjour à tous, 🙂

j'ai un p'tit problème de contrôle "automatique" de textbox,
je souhaite que le format admissible ne soit que du numérique,
mais voila, je ne veut pas être obligé de cliquer sur un bouton pour que le
Msgbox "Erreur de format" apparaisse. 😕

voila ce que j'ai deja fais:


Private Sub TextBox1_change()

If Not IsNumeric(TextBox1.Text) Then
MsgBox "Erreur de saisie, format numérique obligatoire", vbInformation + vbOKOnly, "Erreur saisie"
TextBox1.Text = ""

End If

End Sub


Cela fonctionne, mais le problème est que je souhaite effacer les valeurs saisies dans le textbox lors d'une mauvaise saisie,
ce qui fait 2 changements dans le textbox, et donc fait apparaitre 2 fois le Msgbox.

je fais appel, une fois de plus, à vos compétences pour m'aider à résoudre ce petit problème.


Merci encore !!
😀

 

[laetitia90]

Re : Controle de textbox (à chaque de valeur) sans bouton

bonjour Dam178🙂

Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
If keyAscii = Asc(",") Then keyAscii = Asc(".")
If InStr("0123456789.,", Chr(keyAscii)) = 0 Then keyAscii = 0
End Sub

 

[Dam178]

Re : Controle de textbox (à chaque de valeur) sans bouton

Merci laetitia90,

ça fonctionne ! (meme si j'ai pas tout compris au code 😕)

 

[laetitia90]

Re : Controle de textbox (à chaque de valeur) sans bouton

re,

If keyAscii = Asc(",") Then keyAscii = Asc(".")

que dit ce code si tapes une virgule replace avec un point

If InStr("0123456789.,", Chr(keyAscii)) = 0 Then keyAscii = 0

ce code la tu peus taper uniquement les chiffres de 0 a 9 plus le point & virgule

tout cela evite de mettre des conditions dans de la textbox1 change