Discussion :

[sta008]

Bonjour,

Je cherche actuellement la technique me permettant de restreindre les caractères saisis par les utilisateurs dans l'InputBox suivant. En fait, je souhaiterais:
- qu'ils ne puissent saisir que des caractères alphanumériques (0-9 / a-z / A-Z ).
Ou
- afficher une message d'erreur si la chaîne de caractères saisies contient un élément non alphanumérique.

Actuellement, j'impose juste la saisie d'une chaîne de 6 caractères.

Code :

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

1
2
3
4
5
6
7
 Do
        Critere1 = InputBox("Veuillez saisir le code afin de continuer:", "Testeur", racine)
        If Critere1= vbNullString Then
            getFileName= vbNullString
            Exit Function
        End If
    Loop While Len(Critere1) < 4 Or Len(Critere1) > 6

Merci

[Heureux-oli]

Salut,

Sur un inputbox, ça ne peut se faire que lorsque la chaîne est saisie.
Le plus court est pour chaque caractère de tester sa valeur ASCII.
48 à 57 pour les valeurs de 0 à 9
65 à 90 pour les valeurs de A à Z
97 à 122 pour les valeurs de a à z

ASC() pour obtenir la valeur ASCII.