Formater un nom composé avec les 1eres lettres en majuscule (charles edouard devient charles edouard)

Commenter

Contenu du snippet

Dans un textbox, sans vous soucier des majuscules ou des minuscules, ce code mettra la première lettre de chaque mot en majuscule et les autres en minuscules. Choisissez vous même la séparation des mots : espace ou tiret, pas de problème, les sont pris en compte.

Source / Exemple : 


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

Conclusion :


C'est mon premier code sur ce site. Normalement, ça marche
En cas d'erreur, me contacter sur collectionpieces@free.fr.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.