Couleurs des cellules.

[VINCENTNINI]

Bonjours à tous.......
Je me casse la tête afin de supprimer des lignes dans lesquelles la cellule de référence est d'une certaine couleur.
Si la couleur a été modifiée manuellement via la propriété de la cellule, cela fonctionne.
Si la couleur a été modifiée via une mise en forme conditionnelle, cela ne fonctionne pas......
Je suppose que la propriété de la cellule affectée par ces deux méthode de coloriage n'est pas la même dans les 2 cas.....
J'utilise le code suivant

With ThisWorkbook.ActiveSheet

For i = 1 To 200

If .Range("A" & i).Interior.ColorIndex = 2 Then
.Rows(i).Delete
End If
Next i
End With


Merci d'avance pour votre réponse.

 

[Robert]

Re : Couleurs des cellules.

Bonjour Vincent, bonjour le forum,

Pour les cellules avec MFC il faut utiliser la Condition de la MFC plutôt que sa couleur.
Par exemple si la cellule est rouge via une MFC : si Cellule > 5 alors couleur rouge
alors le code devient :

With ActiveSheet
     For i = 1 To 200
          If .Range("A" & i).Value > 5 Then
          .Rows(i).Delete
     End If
            Next i
 End With

 

[VINCENTNINI]

Re : Couleurs des cellules.

.... j'aurais du y songer !!!!!
Merci et bonne semaine !