Discussion :

[Imitator92]

Bonjour

Je cherche comment mettre une majuscule a tous les mots du meme champ.

J'ai en effet un champ avec des prénoms (quelques fois multiples) et je souhaiterai que la première lettre de chaque prénom soit en majuscule.

Merci de votre aide.

[FreeAccess]

Bonjour,

Et bien alors, plus personne ne lit la ......et pourtant c'est une source de savoir....

Convertir en majuscule la première lettre de chaque mot d'une phrase

Mise en majuscule de la première lettre du prénom (simple, composé, avec espace, tiret ou non)

Bonne lecture....

[stigma]

Ma petite contribution si ça peut t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Majuscule(s_Texte As String) As String
 
    '-------------  Traitement des majuscules
    Dim i As Integer
    '-------------  Tout en minuscules
    s_Texte = LCase(s_Texte)
    '-------------  1ère lettre en majuscule
    Mid(s_Texte, 1, 1) = Chr(Asc(Left(s_Texte, 1)) - 32)
    For i = 1 To Len(s_Texte)
        '--------------------  2éme partie des noms composés
        If Mid(s_Texte, i, 1) = " " Or Mid(s_Texte, i, 1) = "-" Then
            Mid(s_Texte, i + 1, 1) = Chr(Asc(Mid(s_Texte, i + 1, 1)) - 32)
        End If
    Next
 
    Majuscule = s_Texte
 
End Function