tester données entrer dans une txtbox

[sylv@in]

bonjour,

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

merci d'avance

 

[RENAUDER]

Re : tester données entrer dans une txtbox

Bonjour,
Tu peux essayer

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

 

[Pierrot93]

Re : tester données entrer dans une txtbox

Bonjour Sylvain, Eric

une autre solution, pour controler la saisie lors de de frappe :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0: MsgBox "saisie invalide"
End Sub

bon après midi
@+