Excel/Vba: "Si cellule est coloriéeFermé

Question

Bonjour à tous, 

je cherche à effectuer une action sur une cellule si un remplissage de fond lui a été affecté mais mon code ne fonctionne pas:


If (Cells(1, 1).Interior.ColorIndex <> xlNone) Then

Cells(1, 1).Interior.ColorIndex = 10

End If


En théorie, si la cellule A1 N EST PAS COLORIEE, ce code devrait la remplir avec la couleur 10. J'ai le même problème lorsque je tente d'effectuer d'autres actions dans le même contexte.

Qu'ai-je loupé?

Merci, 

Gian

Patrice33740 · Answer

Ce code est partiel, en fonction du contexte, il peut y avoir plusieurs cause de non fonctionnement ! 
Par exemple ce code ne précise ni la feuille ni le classeur concernés. 
Patrice

Le Pingou · Answer

Bonjour,
Entre votre première ligne (je cherche....) et la dernière ( En théorie ...) vous dites l'inverse... !
Essayer avec cette ligne (si pas de couleur de fond on en met une):
If(Range(Cells(1, 1), Cells(1, 1)).Interior.ColorIndex =
-4142 Then

eriiic · Answer

Bonsoir,

En théorie, si la cellule A1 N EST PAS COLORIEE, ce code devrait la remplir avec la couleur 10
Tu fais le test inverse.
Essaie avec :
If Cells(1, 1).Interior.ColorIndex = xlNone Then

eric

Excel/Vba: "Si cellule est coloriée

3 réponses

Discussions similaires

Newsletters