macro majuscule début de chaque mot dans cellule

[lepiak]

Bonjour,
Après plusieurs recherches je n'ai pas trouvé mon bonheur pour faire ce que je souhaite.
Je voudrais mettre la première lettre de chaque mot d'une cellule en majuscule grâce à une macro.
Mais là où cela devient plus dur, c'est que je voudrait ajouter des cas où il ne mettrait pas de majuscule.
ex : "de", "la"...
par exemple :
- "rue georges pompidou" devient après la macro "Rue Georges Pompidou"
- "rue de la poterie" deviendrait "Rue de la Poterie" et non "Rue De La Poterie".

Merci d'avance pour votre aide

 

[BOISGONTIER]

Re : macro majuscule début de chaque mot dans cellule

Bonsoir,

Function NomPropre2(nom As String)
  temp = Application.Proper(nom)
  tbl = Array("De ", "Du ", "Des ", "Le ", "La ", "À ", "En ", "Au ", "Bis ", "Ter ")
  For i = 0 To UBound(tbl)
    temp = Replace(temp, tbl(i), LCase(tbl(i)))
  Next i
  NomPropre2 = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_NomPropre3.xls

JB