Autoriser seulement les chiffres et pas les lettres

Résolu
AntoineDr Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
AntoineDr Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je me pose la question de savoir comment interdire l'entrée d'une lettre pour le numéro d'identification de la textoBox1. Ca fait buguer tout mon programme.

Private Sub Valider_Click()

Dim i As Integer


i = TextBox1 + 1
If Feuil2.Cells(i, 1) = "" Then
MsgBox ("Numéro client incorrect")


Else

If TextBox2 <> Feuil2.Cells(i, 5) Then
MsgBox ("Veuillez entrer un mot de passe correct")

Else

gestion.Show
End If
End If
 
TextBox1 = ""
TextBox2 = ""


End Sub


Merci de votre aide.

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Essaie ceci:

If Not IsNumeric(Right(TextBox1, 1)) Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
        Exit Sub
    End If

1
quent
 
D'après le code que tu propose, je pense qu'il faudrait mettre ce code à l'intérieur des lignes
Private Sub TextBox1_Change()

End Sub

et non pas à l'intérieur des lignes
Private Sub Valider_Click()

End Sub

car tu ne vérifie que le dernier caractère
0
AntoineDr Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Merci ça à l'air de fonctionner !
0