INITIALE EN MAJUSCULE POUR PLUSIEURS NOMS INSCRITS A LA SUITE, EGALEMENT PRENOMS
tmcuh
Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
5 mars 2003 à 18:52
akastels Messages postés 5 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 2 juin 2003 - 17 mai 2003 à 17:23
akastels Messages postés 5 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 2 juin 2003 - 17 mai 2003 à 17:23
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/6312-initiale-en-majuscule-pour-plusieurs-noms-inscrits-a-la-suite-egalement-prenoms-avec-tiret
https://codes-sources.commentcamarche.net/source/6312-initiale-en-majuscule-pour-plusieurs-noms-inscrits-a-la-suite-egalement-prenoms-avec-tiret
17 mai 2003 à 17:23
Function PremMaj()
Dim SD As Variant, mc As Control, I As Integer
Dim mf As Form
Set mf = Screen.ActiveForm
mf.HelpContextId = 1
Set mc = Screen.ActiveControl
mc = UCase(Left(Trim(mc), 1)) & Mid(Trim(mc), 2)
For I = 1 To Len(mc) - 1
SD = Mid(mc, I, 1)
If SD "-" Or SD "_" Or SD = " " Or Asc(SD) = 13 Or Asc(SD) = 10 Then
mc = Left(mc, I) & UCase(Mid(mc, I + 1, 1)) & Mid(mc, I + 2)
Else
mc = Left(mc, I) & LCase(Mid(mc, I + 1))
End If
Next I
mc = Trim(mc)
End Function
Celui-ci a l'avantage de mettre la majuscule au 2ème prénom si celui-ci est composé, puis après un retour chariot, à la ligne, ou séparé par "_".
6 mars 2003 à 22:18
6 mars 2003 à 18:22
dim result as string
result = strConv(MaChaineDeCaractere,vbProperCase)
@+
6 mars 2003 à 00:15
Et l'algo qui permet de mettre tous les mots en majuscule je viens de le trouver aujourd'hui.
Salut grand Dieu...
5 mars 2003 à 23:39
5 mars 2003 à 23:28
txtTitre = Left(txtTitre, i) & ... etc
n'importe quel tdc de programmeur aurait fait de même pour concaténer les 3 éléments !!!!! salut DIEU LE SAUVEUR
5 mars 2003 à 22:53
5 mars 2003 à 20:27
5 mars 2003 à 20:23
http://www.vbfrance.com/article.aspx?Val=7956
Comme par hazard, juste qd je poste ma source, tu me chies ça dessuite après.
Même si c'est un peu modifié, ya des parties de codes de ma sources.
T'es vraiment pas fin, t'as juste changé la boucle For par une Do:
txtTitre = UCase(Left(txtTitre, 1)) & Right(txtTitre, Len(txtTitre) - 1)
For i = 1 To Len(txtTitre)
If Mid(txtTitre, i, 1) = " " Then
txtTitre = Left(txtTitre, i) & UCase(Mid(txtTitre, i + 1, 1)) & Right(txtTitre, Len(txtTitre) - i - 1)
End If
Next i
(C'est un morceau de ma source)
Copieur
5 mars 2003 à 18:52
9/10 car il manque end if à la fin. ;-)