FORMATER UN NOM COMPOSÉ AVEC LES 1ERES LETTRES EN MAJUSCULE (CHARLES EDOUARD DEV
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
15 avril 2005 à 18:10
DjZebulon Messages postés 19 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 12 décembre 2005 - 16 nov. 2005 à 12:11
DjZebulon Messages postés 19 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 12 décembre 2005 - 16 nov. 2005 à 12:11
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/30761-formater-un-nom-compose-avec-les-1eres-lettres-en-majuscule-charles-edouard-devient-charles-edouard
https://codes-sources.commentcamarche.net/source/30761-formater-un-nom-compose-avec-les-1eres-lettres-en-majuscule-charles-edouard-devient-charles-edouard
16 nov. 2005 à 12:11
<script language="VBScript">
Function Format_Prenom(Chaine)
'Transforme la 1ere lettre d un prénom en maj
Dim intLen
Dim intIdx
Dim a
Dim strFinale
Chaine = LCase(Chaine)
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
</script>
18 avril 2005 à 20:03
16 avril 2005 à 15:58
Essaye de corriger l'affichage de ta source stp, ou mieux, nous faire une petite source en Zip.
15 avril 2005 à 18:10
L'exemple du titre est très bien choisi !
Je plaisante : pas de bol, les textes sont convertis en majuscules ...
Sinon, et sans te démoraliser, la fonction suivante fait la même chose que ta source :
StrConv("paul lucien", vbProperCase)
En plus, pas facile d'essayer ta source : Le code déposé a quelques soucis d'affichage et il n'y a pas de Zip