XL 2010 Macro changement de couleurs [Résolu]

[Orbital69]

Bonjour,

J'aimerais mettre en place une macro modifiant certaines couleurs à l'intérieur des cellules.
Je m'explique par l'exemple : A partir d'une sélection j'ai des cellules a fond rouge et et d'autres à fond bleu. Je ne voudrais modifier que les cellules à fond bleu et les passer en gris par exemple.

Ce que j'ai fait :

Sub macro_changement_couleurs()
For Each Cell In Sheets("Feuil1").Range("B3:AW10")
If Selection.Interior.Color = RGB(0, 124, 226) Then
Selection.Interior.Color = RGB(176, 176, 176)
End If
Next Cell
End Sub

Ca ne marche pas. Pouvez-vous m'aider ?

Merci !

 

[CHALET53]

Bonjour,

Peut-être comme ceci :

For Each cell In Sheets("Feuil1").Range("B3:AW10")
If cell.Interior.Color = RGB(0, 124, 226) Then
cell.Select
Selection.Interior.Color = RGB(176, 176, 176)
End If
Next cell

a+

 

[Orbital69]

Bonjour Chalet53,

J'ai essayé ta proposition mais malheureusement cela ne marche pas.

++

Edit : Excuse moi, j'ai mal recopié ta macro et ça fonctionne ! Merci beaucoup !

 

[CHALET53]

chez moi ça marche : es-tu sûr du code couleur
essaie en forçant comme ci-dessous la cellule B3 et suis pas à pas

Sub macro_changement_couleurs()
Range("B3").Interior.Color = RGB(0, 124, 226)
For Each cell In Sheets("Feuil1").Range("B3:AW10")
If cell.Interior.Color = RGB(0, 124, 226) Then
cell.Select
Selection.Interior.Color = RGB(176, 176, 176)
End If
Next cell
End Sub

 

[Orbital69]

chez moi ça marche : es-tu sûr du code couleur
essaie en forçant comme ci-dessous la cellule B3 et suis pas à pas

Sub macro_changement_couleurs()
Range("B3").Interior.Color = RGB(0, 124, 226)
For Each cell In Sheets("Feuil1").Range("B3:AW10")
If cell.Interior.Color = RGB(0, 124, 226) Then
cell.Select
Selection.Interior.Color = RGB(176, 176, 176)
End If
Next cell
End Sub

Effectivement j'avais mal recopié ton code. Désolé de t'avoir fait perdre du temps et merci pour ta solution !