Discussion :

[petitours]

Bonjour

J'ai un champ sur lequel je souhaite une majuscule sur le première lettre.
J'obtiens le résultat avec ceci

Code :

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

Me.TitreAction = UCase(Mid(Me.TitreAction, 1, 1)) & LCase(Mid(Me.TitreAction, 2, Len(Me.TitreAction)))

problème : si la première lettre passe en majuscule, les autres lettres sont forcées en minuscules...

Comment puis-je mettre une majuscule à la première lettre d'un champ, sans changer quoi que ce soit aux caractères suivants ?

Merci par avance

[Invité]

Bonjour

Regardes du coté de la fonction : StrConv

Philippe

[MatAllwhite]

Peut être ça :

Code :

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

Me.TitreAction = StrConv(Me.TitreAction, VbStrConv.ProperCase)

[petitours]

Bonjour

J'ai essayé

Code :

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

Me.TitreAction = StrConv(Me.TitreAction, VbStrConv.vbProperCase)

mais vbProperCase s'applique à tous les mots. Il me faudrait faire cela que sur le premier mot.

J'ai essayé de sélectionner que le premier mot avec split(), ca marche mais je n'ai plus que le premier mot dans ma chaine... Je ne sais pas comment ajouter au premier mot le "MonSpli(de 1 à X)"

Merci

[steps5ive]

Bonjour,

C'est le LCase qui modifie le reste de ta chaîne. Il ne faut donc pas l'utiliser.
Tu n'as qu'à modifier le premier caractère et concaténer le reste de la chaîne directement.

Code :

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

1
2
 
Me.TitreAction = UCase(Left(Me.TitreAction, 1)) & Mid(Me.TitreAction, 2)

Bonne journée

[petitours]

Merci beaucoup, ca tourne nickel

Je m'en veux un peu de ne pas avoir vu ça tout seul...

La solution avec StrConv m'a bien aidé aussi, pour autre chose où je faisais pareil en 10x plus compliqué.

Merci