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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 484 fois - Téléchargée 69 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
Systech_Systems Messages postés 15 Date d'inscription lundi 22 septembre 2003 Statut Membre Dernière intervention 13 janvier 2010
23 déc. 2008 à 00:14
Salut

1 ligne

StrConv (Chaine,vbpropercase)
cs_Bidou Messages postés 5487 Date d'inscription dimanche 4 août 2002 Statut Membre Dernière intervention 20 juin 2013 59
10 août 2006 à 21:52
Gestmed Messages postés 4 Date d'inscription lundi 8 avril 2002 Statut Membre Dernière intervention 8 mai 2009
19 juin 2002 à 10:40
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.