'nom majuscule
Private Sub TextBox1_Change()
Application.EnableEvents = False
TextBox1 = UCase(TextBox1)
Application.EnableEvents = True
End Sub
'prenom nom propre
Private Sub TextBox2_Change()
Application.EnableEvents = False
TextBox2 = Application.Proper(TextBox2)
Application.EnableEvents = True
End Sub
'nom majuscule + prenom nom propre
Private Sub TextBox3_Change()
Application.EnableEvents = False
TextBox3 = UCase(TextBox3)
x = InStr(1, TextBox3, Chr(32))
If x > 0 Then TextBox3 = UCase(Mid(TextBox3, 1, x)) & Application.Proper(Mid(TextBox3, x + 1, Len(TextBox3)))
Application.EnableEvents = True
End Sub