Problème avec l'option "limiter les chiffres dans les textBox"

Bonjour

Dans l'une de mes macros, je veux limiter l'utilisateur à inscrire uniquement des chiffres dans une textbox

Pour ce faire, j'ai utilisé le code suivant

Code:

---

1 2 3 4 5

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

---

Le code fonctionne, sauf qu'il y a un délais entre les valeurs entrées et considérées
Par exemple, le premier chiffre n'est pas considéré tout de suite (si j'inscrit 9 dans la textbox, j'obtient 0)
Pour que le 9 soit considéré, je dois inscrire une autre chiffre (si j'inscrit un 5 après le 9, j'obtiens 9 comme sortie)
Si j'inscrit un nouveau chiffre, je vais avoir 95 comme sortie.

Pourquoi y a t'il ce délais et comment l'éliminer?

Merci

Bonjour,

Peut-être via la function isnumeric
Quelque chose du genre

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Textbox1_Change() if IsNumeric(Me.Textbox1.Value) = True 'Good data, nothing to MSG Else MsgBox "Your input data is not valid" Me.Textbox1.value ="" Endif End Sub

---

Solution plus simple : la vérification à postériori.
Après validation du champ, tu vérifies sont contenu avec un IsNumeric(). Si c'est faux, tu vides le champ (ou tu y mets la valeur par défaut).
Lire ceci : https://docs.microsoft.com/fr-fr/off...meric-function

Edit : devancé de quelques secondes par mfoxy. :aie:

Un gros merci!!!

C'est parfait