RENOMMER UNE PHRASE EN METTANT UNE MAJUSCULE AU DÉBUT DE CHAQUE MOTS ...
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
15 juil. 2003 à 00:04
jotrash Messages postés 373 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 19 juin 2007 - 15 juil. 2003 à 10:02
jotrash Messages postés 373 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 19 juin 2007 - 15 juil. 2003 à 10:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7908-renommer-une-phrase-en-mettant-une-majuscule-au-debut-de-chaque-mots
https://codes-sources.commentcamarche.net/source/7908-renommer-une-phrase-en-mettant-une-majuscule-au-debut-de-chaque-mots
15 juil. 2003 à 10:02
tu maides?
15 juil. 2003 à 10:01
tu maides?
15 juil. 2003 à 09:35
15 juil. 2003 à 08:45
15 juil. 2003 à 08:29
15 juil. 2003 à 03:30
15 juil. 2003 à 01:08
15 juil. 2003 à 00:04
'on met le 1er caractère en majuscule et les autres en minuscules
strString = UCase(Left(strString, 1)) & LCase(Mid(strString, 2))
For i = 2 To Len(strString) - 1
'si on rencontre un espace, on met le caractère suivant en majuscule
If Mid(strString, i, 1) " " Then Mid(strString, i + 1, 1) UCase(Mid(strString, i + 1, 1))
Next i