Bonjour,

Dans l'utilisation d'un Textbox, je cherche à contrôler la saisie de l'utilisateur.
Comme je n'accepte que des chiffres, j'utilise le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
 Select Case KeyAscii
 
        'seulement des chiffres
        Case 48 To 57
 
        Case Else
 
            toto = MsgBox("Merci de ne saisir que des chiffres.")
 
 End Select
Ce qui marche très bien !
A peine l'utilisateur appuie sur une touche autre que numérique, que le message apparaît.

Cependant, j'aimerais ensuite réinitialiser le Textbox à vide, mais cela ne fonctionne pas.

J'ai essayé ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 Select Case KeyAscii
 
        'seulement des chiffres
        Case 48 To 57
 
        Case Else
 
            toto = MsgBox("Merci de ne saisir que des chiffres.")
            textbox1.value = ""
 
 End Select
Mais sans succès.....
Comment procéder ?
Merci de votre aide !