- Initiales en majuscules

[JB]

- Salut tous les accros du forum.
Je cherche une macro qui sélectionnerait tous les mots d'une colonne (chaque cellule ne comprend qu'un mot) et mettrait chaque initiale en majuscules.
J'avais trouvé la macro suivante mais elle ne marche pas.

Sub IereLettremajuscule()
phrase = Selection.Value
phrase = UCase(Left(phrase, 1))+Right(phrase, Len(phrase)-1)
Selection.Value = phrase
End Sub

Merci d'avance,
JB

 

[michel]

bonsoir JB

j'espere que la macro ci dessous pourra t'aider

Sub MajusculeInitiale()
Dim cell As Range
For Each cell In Range("A1:A100") ' à adapter selon projet
cell = Application.Proper(cell)
Next cell
End Sub

bonne soirée
michel

 

[JB]

- Merci beaucoup à Michel pour sa réponse qui me satisfait pleinement.
Pourrais-tu m'indiquer comment tu fais pour mettre un Gif animé dans tes messages, merci d'avance.

 

[G'Claire]

JB, le forum

Il suffit d'utiliser Post VL, en téléchargement sur XLD.

Salut G'Claire

 

[JB]

- Merci beaucoup à G'Claire pour sa réponse.

 

[AL]

Bonjour le forum

Merci pour les réponses, En fait je ne voulais pas passer par la barre d' outils, mais je serai obligé de passer par là


AL