Majuscules le nom et minuscule le prénom

gege wrote:

J'aimerai savoir comment faire par Vba pour mettre une
cellule Nom/Prenom, le Nom en majuscule et le prenom en
minuscule.
Ex: Bastien Christian --> BASTIEN Christian
Sachant que le nom/prenom est dans une seule cellule.

1) Solution sans VBA:

Si A1 contient "bastien christian", alors la formule qui suite
retournera "BASTIEN Christian":

=MAJUSCULE(GAUCHE(A1;TROUVE(" ";A1)))&NOMPROPRE(STXT(A1;TROUVE("
";A1)+1;99))

C'est-à dire le nom en majuscules et le prénom en minuscules excepté la
première lettre.

2) Solution VBA:

x=Ucase(Split([a1]," ",-1)(0))&" "&Worksheetfunction.Proper(Split([a1],"
",-1)(1))


A+

Laurent M.

Bonjour,

Une solution VBA (Excel 2000 ou +) avec une fonction personnalisée :

Function MAJ_Min(S)
Dim Nom, Prenom
Nom = UCase(Split(S)(0))
Prenom = Application.Proper(Split(S)(1))
MAJ_Min = Nom & " " & Prenom
End Function

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,
J'aimerai savoir comment faire par Vba pour mettre une
cellule Nom/Prenom, le Nom en majuscule et le prenom en
minuscule.
Ex: Bastien Christian --> BASTIEN Christian
Sachant que le nom/prenom est dans une seule cellule.
J'ai les formules pour Maj/Minuscule, Debut de mot mais la
combinaison Maj et Min ... je cale!!!
J'aimerai faire en vba un mélange des fonctions DROITE et
GAUCHE
Merci d'avance.

Merci.. J'ai bien fait de poser la question j'aurais
jamais trouvé..
Encore merci

-----Message d'origine-----
gege wrote:

J'aimerai savoir comment faire par Vba pour mettre une
cellule Nom/Prenom, le Nom en majuscule et le prenom en
minuscule.
Ex: Bastien Christian --> BASTIEN Christian
Sachant que le nom/prenom est dans une seule cellule.

1) Solution sans VBA:

Si A1 contient "bastien christian", alors la formule qui
suite

retournera "BASTIEN Christian":

=MAJUSCULE(GAUCHE(A1;TROUVE(" ";A1)))&NOMPROPRE(STXT
(A1;TROUVE("

";A1)+1;99))

C'est-à dire le nom en majuscules et le prénom en
minuscules excepté la

première lettre.

2) Solution VBA:

x=Ucase(Split([a1]," ",-1)(0))
&" "&Worksheetfunction.Proper(Split([a1],"

",-1)(1))


A+

Laurent M.

.

Merci pour la solution.
C'est net clair et precis et cela fonctionne.
merci encore.

-----Message d'origine-----
Bonjour,

Sub Toto()
For Each c In Selection
n = Left(c, Application.Search(" ", c) - 1)
p = Right(c, Len(c) - Application.Search(" ", c))
c.Value = UCase(n) & " " & Application.Proper(p)
Next
End Sub

Camille

-----Message d'origine-----
Bonjour,
J'aimerai savoir comment faire par Vba pour mettre une
cellule Nom/Prenom, le Nom en majuscule et le prenom en
minuscule.
Ex: Bastien Christian --> BASTIEN Christian
Sachant que le nom/prenom est dans une seule cellule.
J'ai les formules pour Maj/Minuscule, Debut de mot mais
la

combinaison Maj et Min ... je cale!!!
J'aimerai faire en vba un mélange des fonctions DROITE
et

GAUCHE
Merci d'avance.

.

.

Cette question (récurrente) n'a de solution pleinement satisfaisante que pour
les cas simples car la(les) solution(s) reposant sur la localisation du 1°
espace, elle(s) échoue(nt) avec les "noms à rallonge" du style : DUPONT DE
NEMOURS Marcel
Sauf à penser que tu fais preuve d'ostracisme à l'égard des aristos, faudra
repasser à la mimine ;-)

AV

"gege" <gerard.louisjean@edf.spam> a écrit dans le message news:
117b01c35831$78fb9020$a101280a@phx.gbl...
Bonjour,
J'aimerai savoir comment faire par Vba pour mettre une
cellule Nom/Prenom, le Nom en majuscule et le prenom en
minuscule.
Ex: Bastien Christian --> BASTIEN Christian
Sachant que le nom/prenom est dans une seule cellule.
J'ai les formules pour Maj/Minuscule, Debut de mot mais la
combinaison Maj et Min ... je cale!!!
J'aimerai faire en vba un mélange des fonctions DROITE et
GAUCHE
Merci d'avance.