FONCTION PCASE POUR METTRE DES MAJUSCULES À CHAQUE DÉBUT DE MOTS DANS UN PHRASE
moguaii
Messages postés
13
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
28 octobre 2011
-
23 juil. 2009 à 23:07
moguaii Messages postés 13 Date d'inscription mardi 6 janvier 2004 Statut Membre Dernière intervention 28 octobre 2011 - 23 juil. 2009 à 23:07
moguaii Messages postés 13 Date d'inscription mardi 6 janvier 2004 Statut Membre Dernière intervention 28 octobre 2011 - 23 juil. 2009 à 23:07
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/8641-fonction-pcase-pour-mettre-des-majuscules-a-chaque-debut-de-mots-dans-un-phrase
https://codes-sources.commentcamarche.net/source/8641-fonction-pcase-pour-mettre-des-majuscules-a-chaque-debut-de-mots-dans-un-phrase
23 juil. 2009 à 23:07
La même fonction en plus simple (et de moi :p) :
------------------------------------------------------------------------------------------
Function PCase(strInput)
colInput = Split(strInput)
For i = 0 to Ubound(colInput)
colInput(i) = UCase(Left(colInput(i), 1)) & LCase(_
Right(colInput(i), Len(colInput(i)) - 1))
Next
PCase = Join(colInput)
End Function
------------------------------------------------------------------------------------------
Voilà ;)