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