Discussion :

[dume75]

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]

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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