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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 260 fois - Téléchargée 67 fois

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

Ajouter un commentaire

Commentaires

Messages postés
15
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
13 janvier 2010

Salut

1 ligne

StrConv (Chaine,vbpropercase)
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Modérateur
Dernière intervention
20 juin 2013
47
Messages postés
4
Date d'inscription
lundi 8 avril 2002
Statut
Membre
Dernière intervention
8 mai 2009

Il suffit juste de rajouter "Chaine = LCase$(Chaine)", aprs les Dim.
pour moi sa marche
Stef
Mais pour mettre les autres lettres en minuscules dans le cas contraire?

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.