- Initiales en majuscules

JB · 25 Novembre 2003

- 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 · 25 Novembre 2003

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 · 25 Novembre 2003

- 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 · 25 Novembre 2003

JB, le forum

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

Salut G'Claire

JB · 25 Novembre 2003

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

AL · 26 Novembre 2003

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

- Initiales en majuscules

JB

Guest

michel

Guest

JB

Guest

G'Claire

Guest

JB

Guest

AL

Guest

Discussions similaires