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.