Discussion :

[isrdum]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mfoxy]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[isrdum]

Un gros merci!!!

C'est parfait