XL 2010 Macro changement de couleurs [Résolu]

Orbital69

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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 !
 

Discussions similaires

Réponses
7
Affichages
485

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs