Autoriser seulement les chiffres et pas les lettres

Résolu/Fermé

AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015 - Modifié par AntoineDr le 9/01/2015 à 18:28
AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015 - 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.

A voir également:

Autoriser seulement les chiffres et pas les lettres
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Les bloqueurs de publicité ne sont pas autorisés sur youtube - Guide
Mon clavier n'écrit plus les lettres ✓ - Forum Clavier
Tous les code possible de 0 à 9 (4 chiffres ) - Forum Jeux vidéo
Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
9 janv. 2015 à 18:35

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

quent
Modifié par quent le 9/01/2015 à 18:46

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

AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015
9 janv. 2015 à 18:52

Merci ça à l'air de fonctionner !

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

Formule magique excel??????

rectangle derrière le texte

Nombre de combinaisons possibles avec trois chiffres

liste de noms par ordre alphabétique

Discussions similaires

Newsletters