j'ai crée un userform avec des boutons txtbox... par exemple dans une txtbox je dois entrer une quantité et j'aurai voulu savoir comment on peut tester la valeur de la case au fur et a mesure que l'opérateur rentre les valeurs et s'il rentre autre chose qu'un chiffre afficher une message box "entre que des chiffres"
j'ai essayer avec les fonctions chr, asc mais un peu de mal a trouver une bonne solution
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then Exit Sub
Me.TextBox1.Text = ""
MsgBox "Vous devez entrer un nombre", vbOKOnly, "Erreur de saisie"
Cancel = True
End Sub
une autre solution, pour controler la saisie lors de de frappe :
Code:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0: MsgBox "saisie invalide"
End Sub