Autoriser seulement les chiffres et pas les lettres

Résolu

AntoineDr Messages postés 15 Statut Membre -
AntoineDr Messages postés 15 Statut Membre - 9 janv. 2015 à 18:52

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.

Afficher la suite

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 730
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
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
2. AntoineDr Messages postés 15 Statut Membre
  
  Merci ça à l'air de fonctionner !
  
  0

Autoriser seulement les chiffres et pas les lettres

1 réponse

Discussions similaires

Newsletters