Mettre la 1ère lettre d'un mot en gras et en rouge

[aubelix]

Bonjour à tous les amis du Forum.

Une nouvelle question concernant la mise en forme de mots d'un colonne :
Comment mettre la 1ère lettre d'un mot en gras et en rouge
Comme l'exemple ci-dessous : (voir fichier joint)

ALLO
BATEAU
COCORICO
DODO
RATEAU
CHARLOT
POTEAU

Les mots sont de longueurs variables ainsi que le nombre.

Par avance, Merci pour votre aide.
Cordialement.

 

[BOISGONTIER]

Re : Mettre la 1ère lettre d'un mot en gras et en rouge

Bonjour,

Sélectionner le champ

Sub essai()
 For Each c In Selection
   c.Characters(Start:=1, Length:=1).Font.ColorIndex = 3
   c.Characters(Start:=1, Length:=1).Font.Bold = True
 Next
End Sub

JB
Formation Excel VBA JB

 

[pierrejean]

Re : Mettre la 1ère lettre d'un mot en gras et en rouge

bonjour Aubelix

Vois si cela te convient

 

[aubelix]

Re : Mettre la 1ère lettre d'un mot en gras et en rouge

Merci Jacques et PierreJean pour vos réponses respectives.

La macro de Jacques Fonctionne.
Mais PierreJean, il ne se passe rien lorsque je clique dur le bouton.
J'ai essayé :
Outils -Macro - Executer - Test, même résultat.
J'aimerai comprendre ce qui ne va pas.

Cordialement.

 

[pierrejean]

Re : Mettre la 1ère lettre d'un mot en gras et en rouge

Re

je viens de tester le fichier et chez moi cela marche

D'ailleurs tu remarqueras que le code ressemble furieusement a celui de notre ami Jacques

 

[aubelix]

Re : Mettre la 1ère lettre d'un mot en gras et en rouge

Mille excuses Pierrejean.

J'ai testé la macro de Jacques en premier.
Je suis resté sur la colonne "C".
Je viens de m'apercevoir en créant un nouveau classeur
que c'était la colonne B dans ta macro comme je l'avais demandée.
Ta macro fonctionne très bien.

Cordialement.