Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

XLDnaute Nouveau
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 !
 
Dernière édition:

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

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
531
Réponses
0
Affichages
153
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…