Formater un prénom avec les 1eres lettres en maj

Commenter

Contenu du snippet

voici une fonction simple vous permetant de mettre
automatiquement les premieres lettres d'un prénom
(si prénom composé)
ex : jean pierre = Jean Pierre

Source / Exemple : 


Public Function Format_Prenom(Chaine As String) As String
'Transforme la 1ere lettre d'un prénom en maj
Dim intLen As Integer
Dim intIdx As Integer
Dim a As String
Dim strFinale As String

intLen = Len(Chaine)

For intIdx = 1 To intLen
    a = Mid(Chaine, intIdx, 1)
        If intIdx = 1 Then a = UCase(a)
        If intIdx > 2 Then
            If Mid(Chaine, intIdx - 1, 1) = " " Then a = UCase(a)
            If Mid(Chaine, intIdx - 1, 1) = "-" Then a = UCase(a)
        End If
    strFinale = strFinale & a
Next

Format_Prenom = strFinale
End Function

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.