XL 2016 [RESOLU] - VBA - Textbox

[senpan]

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 :

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 ?

 

[Chris24]

Bonsoir

If InStr("1234567890,ABCDEFGHIJKLMNOPQRSTUVWXYZ,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0

 

[senpan]

Ha voui OK...

Je pensais que le VBA d'Excel concidérait le AZ comme la suite complète de l'alphabet. Ben je vois que non. Oooppsssss ! 😳

Merci à toi Chris24