Majuscule Minuscule Nompropre

[Chris]

Bonjour à tous,

J'ai créé en VBA 2 macros qui me permettent de changer la casse du texte contenu dans une cellule (voir fichier joint).
Cela marche très bien pour la transfo en majuscule et en minuscule grace aux fonctions VBA Ucase et Lcase mais mon problème est de faire une macro pour obtenir l'équivalent de la fonction "NOMPROPRE" d'excel car il n'y a pas de fonction VBA équivalente.

Quelqu'un peut-il m'aider?

Merci d'avance à celui qui me trouvera la solution....

 

[Patrick MO]

Chris,

As tu essayé de combiner les fonctions Left,Right et Len avec Ucase?

Supposons text = ton texte

Len te retournes le nombre de caractère du texte

Left te permet de sélectionner un nombre de caractères le plus à gauche d'un texte.

Si tu prends Ucase(String.Left(text,1)), tu obtiendras la premiére lettre de ton mot en majuscule.
Et Lcase(String.right(text, len(texte)-1) te retourne la fin de ton texte en minuscule.

 

[LaurentTBT]

Bonjour à tous.

Tu peux essayer d'utiliser la fonction d'Excel "NOMPROPRE" par cette syntaxe:
Worksheetfunction.proper(TonNom)

@+ Laurent.

 

[Gaël]

Salut,

Jette un oeuil sur les modules joints. Le code est commenté.

J'espère que ça t'ira.

A plus

Gaël

 

[Chris]

Merci à ceux qui m'ont répondu sur le sujet...
Malheureusement le fichier joint de Gaël ne fonctionne pas...peux-tu me le renvoyer...

Merci d'avance et à bientôt