Bouton Changer couleur cell selectives en autre couleur

Bonjour,

je cherche a créer un bouton pour changer en un clic sur la feuilleX, dans le range G1 to L50 par exemple, la couleur des seules cellules rouges en cellules vertes.

Avez vous une idée ? J'y ai passé pas mal de temps et j'ai mal au crane

Merci beaucoup

Bonjour Blackzom, bonjour le forum,

Comme il y a plusieurs vert et plusieurs rouge il faudra peut-être adapter le code :

Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim CEL As Range

Set O = Worksheets("Feuil1")
Set PL = O.Range("G1:L50")
For Each CEL In PL
    If CEL.Interior.ColorIndex = 4 Then CEL.Interior.ColorIndex = 3
Next CEL
End Sub

Thank you verymuch this is nice and clean and working perfectly !!!

Re,

Œufs Corse ! Comme disent les poules à Bastia...