Excel/Vba: "Si cellule est coloriée

Giancountry -  
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

3 réponses

  1.  Patrice33740
    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
    0
    1. Le Pingou
      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
      0
      1. eriiic Contributeur
        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
        0