Autorisation caractères VBA

Version imprimable

Bonjour,

Je suis novice en VBA et je dois créer un petit programme. Dans ce programme j'ai inséré des textbox et des boutons.
J'aurais souhaité pouvoir contrôler le format des caractères inscrits dans la textbox lorsque je clique sur un bouton. Les caractères autorisés doivent être seulement des lettres en majuscules ou des chiffres et le nombre de caractère maximum doit être de 8.
Je suis coincé sur cette problématique, j'arrive à contrôler le nombre de caractère mais par leur format majuscule ou numérique.
Je pensais faire quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'On définit les caractères autorisés caractere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" ' On vérifie le nombre de caractères de la chaîne If Len(Box_Immo.Value) > 8 Then MsgBox ("Votre Code Immobilisation ne doit pas dépasser 8 caractères") End If 'On vérifie que les caractère de la box For i = 1 To Len(Box_Immo) If Box_Immo.Value = Mid(caractere, i, 1) <> 0 Then MsgBox ("Votre Code Immobilisation ne doit pas comporter d'espaces") End If Next i
Cela ne fonctionne malheureusement pas...
J'ai cherché et testé pas mal de fonction et malheureusement je ne dispose pas de beaucoup de temps pour bosser dessus...
Si vous avez des idées ?
Merci !

22/12/2011, 20h44
ProgElecT

Salut gogo850

Citation:

Je suis novice en VBA

Tu poses la question sur le forum VB6 ?
Vois ce lien, Comment savoir si l'on utilise VBA ou VB6 ?
Si tu programmes avec VBA, il serai mieux de poser la question dans l'un des forum VBA Office (Access, Excel, PowerPoint, Word....)
22/12/2011, 21h00
gogo850

Oups...
Je suis allez un peu vite... merci bien, je re-poste sur le forum VBA...
Désolé pour le dérangement !

Citation:
Envoyé par gogo850
Bonjour,

Je suis novice en VBA et je dois créer un petit programme. Dans ce programme j'ai inséré des textbox et des boutons.
J'aurais souhaité pouvoir contrôler le format des caractères inscrits dans la textbox lorsque je clique sur un bouton. Les caractères autorisés doivent être seulement des lettres en majuscules ou des chiffres et le nombre de caractère maximum doit être de 8.
Je suis coincé sur cette problématique, j'arrive à contrôler le nombre de caractère mais par leur format majuscule ou numérique.
Je pensais faire quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'On définit les caractères autorisés caractere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" ' On vérifie le nombre de caractères de la chaîne If Len(Box_Immo.Value) > 8 Then MsgBox ("Votre Code Immobilisation ne doit pas dépasser 8 caractères") End If 'On vérifie que les caractère de la box For i = 1 To Len(Box_Immo) If Box_Immo.Value = Mid(caractere, i, 1) <> 0 Then MsgBox ("Votre Code Immobilisation ne doit pas comporter d'espaces") End If Next i
Cela ne fonctionne malheureusement pas...
J'ai cherché et testé pas mal de fonction et malheureusement je ne dispose pas de beaucoup de temps pour bosser dessus...
Si vous avez des idées ?
Merci !
VBA ou VB6 enfin bref.

Avec la fonction Instr() tu devrais trouvé ton bonheur
Voic un truc du genre :
Code:

1 2 3 4 5 6 7 caractere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" For i = 1 To Len(TextBox1.Text) Step 1 If InStr(caractere, Mid(TextBox1.Text, i, 1)) = 0 Then MsgBox "pas bon" Exit For End If Next

22/12/2011, 21h58
ProgElecT

Citation:

Envoyé par gogo850

Bonjour,

Je suis novice en VBA ...
Si vous avez des idées ?
Merci !

Citation:

Envoyé par MicMac81

VBA ou VB6 enfin bref.
.........

Alors TextBox1.Text si.Text existe pas sous VBA ..... reste les espaces ....... un TextBox peut être limité à 8 caractères en VB6 .MaxLength ...... discussion à rallonge ....