Convertir minuscules en majuscules

[JLP]

Bonjour,
Je voudrais convertir une colonne de texte (noms propres) tapée en minuscules, sous cette forme : première lettre du mot en majuscles, sauf pour les noms avec particule (de ; le); si possible en remplaçant le contenu de la cellule existante.
Merci pour votre aide.

 

[Bernard]

Bonjour JLP et le forum

Je n'ai pas compris pourquoi tu ne veux pas mettre les noms à particules en majuccule ?

A toute fin utile je mets la macro suivante qui met la première lettre des noms propres en majuscule.

Option Explicit
Sub MiseEnMaj()
Dim MyPlage
Dim C As Variant
Set MyPlage = Range(Range("A2"), Range("A65536").End(xlUp))
For Each C In MyPlage
C.Value = Application.Proper(C.Value)
Next C
End Sub


Cordialement

Bernard

 

[Gérard DEZAMIS]

Bonjour Bernard
Bonjour JLP

Juste un petit essai qui necessite une colonne supplémentaire (Abantage à Bernard 1-0)
les noms étant placés en A:A formule en B:B =

=SI(OU(GAUCHE(A1;3)="le ";GAUCHE(A1;3)="de ");MINUSCULE(GAUCHE(A1;3))&NOMPROPRE(DROITE(A1;NBCAR(A1)-3));NOMPROPRE(A1))

cela permet de laisser la particule "de " ou "le " en minuscule et de mettre le Patronyme en NOM PROPRE (Majuscule en 1° lettre)

Regarde Bernard

je signe Gérard DEZAMIS, Gérard DE ZAMIS ou Gérard de ZAMIS
le dernier est nettement plus noble non ?
@+
GD

 

[JLP]

Merci Bernard et Gérard les deux solutions proposées me conviennent.
@+