[VBA EXCEL] changer la couleur du texte de cellules

Bonsoir,

Voici mon problème.
J'ai une plage de données extensible en nombre de lignes. Parmi cette plage de données, certaines cellules ont leur texte en bleu, je souhaite développez une macro changeant le bleu en noir.
D'autres cellules ont du texte en rouge, je souhaite donc développer une autre macro changeant le rouge en bleu.

Est-ce quelqu'un aurait une solution à mon problème?

Dume
[/quote]

tiens manque plus qu'as definir la plage à traiter ... ici j'ai pris la sélection courante...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ChangeCouleur() Dim r As Range 'Plage à parcourir Dim c As Range 'Cellule de la plage   'Par exemple la sélection courante comme plage a traiter Set r = Selection 'une 1° boucle pour changer les bleu en noir For Each c In r If c.Font.Color = vbBlue Then c.Font.Color = vbBlack Next   '2°boucle les rouges deviennent bleu For Each c In r If c.Font.Color = vbRed Then c.Font.Color = vbBlue Next   End Sub

---

:wink: