Bonjour le forum
Bonjour Franck, bonjour Jean-Marie (A de suite sur le Chat ? )
Alors c'est parti pour une saisie en direct live qui ne peut être qu'en minuscule ou en MAJUSCULE :
Code:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub