Autorisation caractères multiples [Résolu]

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

[jfontaine]

Bonjour,

En utilisant l'évenement Keypress de la textbox, tu test le code ascii du caractère saisit

Code :

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 65 To 90
        'Caractère ok
    Case Else
        KeyAscii = 0
End Select
 
End Sub

Il te reste a adapter pour les chiffres

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
If Len(TextBox1) = 8 Then
    KeyAscii = 0
Else
    Select Case KeyAscii
        Case 48 To 57, 65 To 90
        Case 97 To 122: KeyAscii = KeyAscii - 32
        Case Else: KeyAscii = 0
    End Select
End If
End Sub

[gogo850]

Merci de ta réponse !

Mais est-il vraiment nécessaire d'utiliser KeyAscii ?

J'aurais souhaité quelque chose d'assez simple, c'est un boulot que nous demande notre prof et nous sommes tous débutants en programmation, je pensais faire cela avec des fonctions que je connaissais, genre "Len", "Instr" ou "Chr" mais je suis un peu perdu avec toutes ces fonctions...

Je souhaite pourvoir faire quelques choses en définissant mes caractères que j'autorise et ensuite lorsque j'analyse les valeurs des données entrées dans la textbox, il m'affiche une msgbox en cas de caractère n'appartenant pas à la chaine de caractère autorisée comme quoi il y a une "erreur".
Suis-je compréhensible ?

Merci en tout cas pour l'aide, ce qui est chiant c'est que je ne peux pas tester à présent vos formules puisque je tourne sur mac et que le VBA mac n'accepte pas activeX...

[jfontaine]

Dans cas remplace la dernière partie de ton code.
Tu n’étais pas très loin

Code :

1
2
3
4
5
For i = 1 To Len(Box_Immo)
    If InStr(Caracteres, Mid(Box_Immo.Text, i, 1)) = 0 Then
            MsgBox ("Votre Code Immobilisation ne doit pas comporter d'espaces")
    End If
Next i

[gogo850]

Merci pour ton aide !

Je teste cela demain et je te dirais si cela convient à mon attente.
D'ailleurs le message que j'ai mis dans ma dernière Msgbox ("Votre Code Immobilisation ne doit pas comporter d'espaces") est erroné.
Je vais faire afficher un message du style "votre code immobilisation doit être écrit en majuscule et doit être composé seulement de lettres ou de chiffres"

En tout cas merci encore, parce que VBA quand on début on y passe (et perd) énormément de temps, même si cela reste très intéressant pour quelqu'un qui utilise habituellement les fonctions basiques d'Excel !

Bonne soirée !

[Ormonth]

Bonjour,

Si ça peut t'être utile, vois l"approche de ce tutoriel :

http://didier-gonard.developpez.com/...e-dans-texbox/

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier