senpan
XLDnaute Junior
Bonsoir le fofo,
J'ai une question.
"Forcement, sinon tu ne serais pas là" comme dirait l'autre...
Voici un bout de code qui me pose problème :
J'aimerai faire en sorte que l'utilisateur ne puisse saisir que des lettres en majuscules, des chiffres et un tiret (-). Seulement, voilà, je ne voit pas comment résoudre ce problème = ni de minuscules et ni de caractères spéciaux.
Je pense que cela doit se jouer à ce niveau InStr("1234567890,AZ,-", Chr(keyAscii)) = 0 mais je ne vois pas.
Avez-vous une idée ?
J'ai une question.
"Forcement, sinon tu ne serais pas là" comme dirait l'autre...
Voici un bout de code qui me pose problème :
Code:
Private Sub TextBoxCP_KeyPress(ByVal keyAscii As MSForms.ReturnInteger)
If InStr("1234567890,AZ,-", Chr(keyAscii)) = 0 Then
keyAscii = 0: Beep
MsgBox "Maximum 6 caractères !" & vbCrLf & vbCrLf & vbCrLf & "LUXEMBOURG --> toujours précédé d'un L majuscule" & vbCrLf & "Exemple : L-xxxx" & vbCrLf & vbCrLf & "PAYS-BAS --> toujours suivit de 2 lettres" & vbCrLf & "Exemple : xxxxZZ" & vbCrLf & vbCrLf, vbOKOnly + vbInformation, "Code postal"
End If
End Sub
J'aimerai faire en sorte que l'utilisateur ne puisse saisir que des lettres en majuscules, des chiffres et un tiret (-). Seulement, voilà, je ne voit pas comment résoudre ce problème = ni de minuscules et ni de caractères spéciaux.
Je pense que cela doit se jouer à ce niveau InStr("1234567890,AZ,-", Chr(keyAscii)) = 0 mais je ne vois pas.
Avez-vous une idée ?