Discussion :

[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 :

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

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 !

[ProgElecT]

Salut gogo850

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....)

[gogo850]

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

[MicMac81]

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 :

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

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 :

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

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

[ProgElecT]

Bonjour,

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

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 ....