FORMATER UN NOM COMPOSÉ AVEC LES 1ERES LETTRES EN MAJUSCULE (CHARLES EDOUARD DEVIENT CHARLES EDOUARD)

Pour ce code, il vous faut un textbox nommé TxtPrenom.
Recopier ce code tel quel.

Private Sub TxtPrenom_keypress(keyascii As Integer)
Dim D
'           Compte le nombre de lettres du contrôle
D = Len(TxtPrenom)
'            Si ce décompte est égal à 0, met la lettre en majuscule
'           par la fonction Frappe
If D = 0 Then
keyascii = Frappe(keyascii)
Exit Sub
'           sinon, vérifie que le caractère précédent est :
'            Soit un espace 
'           Soit un tiret
'           dans ce cas  applique également la fonction Frappe (pour mettre la lettre en majuscule)
ElseIf Right(TxtPrenom, 1) = " " Or Right(TxtPrenom, 1) = "-" Then
keyascii = Frappe(keyascii)
Exit Sub
Else
'           Sinon, application du code de passage en minuscule
keyascii = LCase(keyascii)
End If
End Sub

Function Frappe(keyascii As Integer)
' Mise en MAJUSCULE
'           Vérifie que le code ASCII correspond à une MAJUSCULE
'           Code situé entre 96 et 123
If keyascii > 96 And keyascii < 123 Then
'           si le code correspond à un code de minuscule, lui retire une valeur de 32,
'           concordance entre la lettre minuscule et sa majuscule
keyascii = keyascii - 32
End If
'            Attribue la nouvelle valeur du code
Frappe = keyascii
End Function