Nom en majuscule et Prénom en minuscule

[Gil_Se]

Bonjour.
Je souhaite, dans certaines cellules(A2:A10), une mise en forme particulière:
Dans ces cellules (A2:A10), on saisit un nom et prénom:
exemple:
DURAND Jean Pierre
Je suis à la recherche de la bonne ligne de commande dans VBA pour que le NOM soit en majuscule et le prénom en minuscule sauf la ou les 1ère lettre(s) qui doivent être en majuscule, comme dans l'exemple.
Merci

 

[gwenlorin]

Re : Nom en majuscule et Prénom en minuscule

Bonjour,

mettre en forme du texte n'est pas un pb mais par contre tu va avoir du mal, à mon avis, à déterminer ce qui fait partie du nom et ce qui fait partie du prenom.

pb sur les noms et prénoms composés par exemple.

 

[Hulk]

Re : Nom en majuscule et Prénom en minuscule

Hello,

Avec une petite recherche sur google, voici ce que j'ai trouvé sur le site de Veriti.

Colles ceci dans un module

Function NOMPrenom$(ByVal NP$)
'Ti
Dim Tabl
    Tabl = Split(StrConv(NP, vbProperCase))
    If UBound(Tabl) >= 0 Then Tabl(0) = UCase(Tabl(0))
    NOMPrenom = Join(Tabl)
End Function

Puis disons que tes nom et prénom sont en A1, en B1 tu mets

=NOMPrenom(A1)

Ca devrait te convenir.

Cdt, Hulk.

 

[Gil_Se]

Re : Nom en majuscule et Prénom en minuscule

Bonjour.
On va faier comme s'il n'y avait pas de Noms composés mais qu'il y a des prénoms composés.
En fait si je saisi:
durand jean pierre
je souhaite obtenir: DURAND Jean Pierre
Merci.
Gilles

 

[Gil_Se]

Re : Nom en majuscule et Prénom en minuscule

Bonjour Hulk.
J'aurais souhaité obtenir le résultat dans la même cellule.
Gilles

 

[pierrejean]

Re : Nom en majuscule et Prénom en minuscule

bonjour Gil Se

Vois si cela te convient

Edit Salut hulk
Salut gwenlorin

 

[gwenlorin]

Re : Nom en majuscule et Prénom en minuscule

Salut Gil_Se, Salut Pierrejean

si tu fais sauter les contraintes la macro de pierrejean est parfaite

 

[Gil_Se]

Re : Nom en majuscule et Prénom en minuscule

Bonjour et merci à tous.
Toutefois, je n'arrive pas à adapter la macro proposé par Pierre Jean à mon souhait.
Je souhaite que, pour une zone donnée (A4:A14), dès qu'on saisit les noms et prénoms, la mise en forme s'applique automatiquement.
Je suppose que c'est dans rivate Sub Worksheet_Change()
Merci.
Gilles

 

[pierrejean]

Re : Nom en majuscule et Prénom en minuscule

Re

Version adaptée

Nb: Il s'agit cependant d'une version limitée (comme la precedente) qui n'envisage que l'espace comme separateur

Si des noms plus complexes etaient a prevoir comme par exemple

Gaspard d'estin Valerie
ou
Ladie d'y de petite Bretagne

il conviendrait de travailler sur un fichier presentant les divers patronymes susceptibles de se presenter

 

[Hulk]

Re : Nom en majuscule et Prénom en minuscule

Re,

Erreur...

Cdt, Hulk.

 

[Gil_Se]

Re : Nom en majuscule et Prénom en minuscule

Merci beaucoup Pierre jean. La macro fonctionne exactement comme je le souhaitais.
Gilles

 

[kjin]

Re : Nom en majuscule et Prénom en minuscule

Bonjour à tous,
En reprenant le code de Ti proposé par Hulk

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target = "" Then Exit Sub
Dim Tablo
    Application.EnableEvents = False
    Tablo = Split(Application.Proper(Target), " ")
    If UBound(Tablo) >= 0 Then Tablo(0) = UCase(Tablo(0))
    Target = Join(Tablo)
    Application.EnableEvents = True

End Sub

A+
kjin

 

[GUY rrr]

Bonjour le forum,

Je me permets de déterrer ce post car les propositions données par pierrejean et Kjin correspondent à mes besoins, mais ...
- La proposition n°9 de pierrejean me renvoie un message d'espace pile insuffisant ...
- La proposition n°12 de Kjin est valable semble t-il pour toute la feuille ...
Je souhaiterai que "les conversions" s'effectuent uniquement sur la zone "A10:A5000".
Je n'arrive pas à solutionner les 2 propositions.

Merci à ceux qui voudront bien se pencher sur ma demande.

 

[GUY rrr]

Bonjour le forum,

Je me permets de faire un petit up car je ne parviens pas à solutionner mon problème.

Merci aux différents intervenants qui prendront le temps de me venir en aide.