Contrôle de saisie dans un Textbox

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:

---

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:

---

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 !

bonjour

dans quel evenement du textbox tu a placé ce code ????

pour info regarde par la

Je débute avec les Userform donc je ne comprends pas très bien ta question, dans le sens où je ne sais pas ce qu'est un événement (?).

Voici le code complet de ce contrôle de saisie si cela peut t'aider d'avantage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub txtNbCible_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   Select Case KeyAscii   'seulement des chiffres Case 48 To 57   Case Else   toto = MsgBox("Merci de ne saisir que des chiffres.")   End Select   End Sub

---

Bonjour,

une proposition parmi des dizaines possibles .... impossible de savoir si ça répond à ta demande puisque tu ne spécifies pas le type de nombres acceptés

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox1_Change() With Me.TextBox1 If .Value = "" Then Exit Sub ElseIf Val(.Value) <> .Value Then MsgBox ("Merci de ne saisir que des chiffres.") .Value = "" End If End With End Sub

---

si tu acceptes les chiffres non entiers, il y aura nécessité de tester les "." et les "," avec des Replace
Regarde l'aide :f1: au sujet de Val() pour comprendre ça

Je n'accepte que les nombres entiers (ASCII de 48 à 57).
Mais je vais pouvoir m'en sortir avec ton code, merci !

Par contre, pour ma culture perso, je suis toujours preneur d'une solution ou d'une explication sur le fait que cela ne marche pas dans un KeyPress.

sinon si tu veux gérer ca par les evenements se sera comme ceci:

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Const val_numeric = "[,.0-9]" 'constante comportant uniquement des chiffres If Not Chr(KeyAscii) Like val_numeric Then TextBox1 = "" 'KeyAscii = 0 End Sub   Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If Not IsNumeric(TextBox1) Then MsgBox ("Merci de ne saisir que des chiffres."): TextBox1 = "" End Sub

---

est tu allé voir le lien que je t'ai donné ??

Yep je suis en train toutes les solutions proposées !
Encore merci.

Salut, toujours à lire : Obliger une saisie numérique dans une TextBox, à voir également : Avoir un point ou une virgule dans une textbox

Simple et efficace, le tout en une seule ligne.
Article à lire absolument je confirme.

Merci !

oui en une seule ligne

un peu comme ceci:

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not Chr(KeyAscii) Like "[,0-9]" Then KeyAscii = 0: MsgBox ("Merci de ne saisir que des chiffres."): TextBox1 = "" End Sub

---

et bien entendu tu peut ajouter le point ca t'evitera de faire un replace si transfert dans une cellule

Code:

---

If Not Chr(KeyAscii) Like "[.,0-9]"

---

Tout à fait, c'est d'ailleurs le code que j'ai utilisé en premier lieu.

Encore merci à tous les 3 pour vos contributions qui m'ont aussi permis de mieux comprendre le fonctionnement général des Userform !

re

une derniere petite recommandation
a la place de chr(keyAscci) utilise plutot chrW(keyAscii) parfois chr joue des tour de cochon