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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JP
Le #25757452
Désolé du dérangement, avec un point au lieu du signe égal, c'est m ieux:
Range(a).Interior.ColorIndex = c

JP
Jacquouille
Le #25757512
Bonjour
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
Publicité
Poster une réponse
Anonyme