Forcer la majuscule + interdire caractère spécifique

Bonjour,

J ai trouvé des code pour changer la minuscule en majuscule avec la fonction Ucase

Mais je n arrive pas a intégrer une fonction pour autoriser seulement les caractère (-./)

J ' ai reussi en jumelant les deux code mais lors de ma saisie la dernière lettre reste en minuscule

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'saisie uniquement certains caractaires pour éviter le renomage photo qui plante avec des (%"'/\...)

TextBox1.Text = UCase(TextBox1.Text)

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

KeyAscii = 0

End If

End Sub

Bonsoir anarium,

À tester :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If InStr("1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-./", Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
  End If
End Sub

Private Sub TextBox1_Change()
  TextBox1.Text = UCase(TextBox1.Text)
End Sub

Dans ce code, la fonction TextBox1_KeyPress est utilisée pour bloquer les caractères non autorisés, et la fonction TextBox1_Change est utilisée pour convertir tout le texte en majuscule.Ce code convertira également les caractères spéciaux "-./" en majuscule, ce qui n'aura aucun effet car ces caractères n'ont pas d'équivalent en majuscule.

C'est parfait merci

Rechercher des sujets similaires à "forcer majuscule interdire caractere specifique"