code couleur d'une cellule. Problème dans une formule
Le
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
Merci pour l'aide
JP
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
Merci pour l'aide
JP
Range(a).Interior.ColorIndex = c
JP
Cela, c'est un beau message: le questionneur devient répondeur. -))
Jacquouille - lecteur.
" Le vin est au repas ce que le parfum est à la femme."
"JP" a écrit dans le message de groupe de discussion :
Désolé du dérangement, avec un point au lieu du signe égal, c'est mieux:
Range(a).Interior.ColorIndex = c
JP