code couleur d'une cellule. Problème dans une formule
2 réponses
JP
Bonjour,
Dans la ligne Range(a) = Interior.ColorIndex = c
du code ci dessous, j'ai une erreur 424 objet requis:
Que faut-il modifier?
For Each couleur In Sheets("feuil1").Range("O8:O20")
If couleur = ActiveCell.Value Then
c = couleur.Offset(0, 1).Interior.ColorIndex
a = ActiveCell.Address
Range(a) = Interior.ColorIndex = c
End If
Next