Excel/Vba: "Si cellule est coloriée
Giancountry
Messages postés
11
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
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 -
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
-
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
