Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

code couleur d'une cellule. Problème dans une formule

2 réponses
Avatar
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

2 réponses

Avatar
JP
Désolé du dérangement, avec un point au lieu du signe égal, c'est m ieux:
Range(a).Interior.ColorIndex = c

JP
Avatar
Jacquouille
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