Excel/Vba: "Si cellule est coloriée

Giancountry Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 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
A voir également:

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
Réponse 2 / 3
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
Réponse 3 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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