Suppression lignes en fonction couleur MFC

[JORDAN]

Bonjour tout le monde, le Forum,

J'ai fais une macro pour essayer de supprimer les lignes dont la cellule de la 2ème de colonne est colorée (Cf fichier joint)

Mon soucis est que toutes les lignes sont supprimées.

Merci pour votre aide
Bonne journée

 

[tototiti2008]

Re : Suppression lignes en fonction couleur MFC

Bonjour JORDAN,

Pas simple de savoir si une MFC est appliquée ou non dans une cellule
Le plus simple est de refaire le test de la MFC dans le code, mais si quelqu'un a plus simple je suis preneur

Sub SuppLignes()
Dim I As Integer
'Dim derligne
'Dim coul1
'coul1 = 0
'coul1 = Cells(1, 2).FormatConditions(1).Interior.ColorIndex
'MsgBox coul1

For I = Range("A100").End(xlUp).Row To 1 Step -1
    If UCase(Cells(I, 2).Value) Like "*A*" Then Cells(I, 1).EntireRow.Delete
Next I

End Sub

 

[JCGL]

Re : Suppression lignes en fonction couleur MFC

Bonjour à tous,
Salut Jordan,

N'est il pas plus simple de choisir la valeur qui conditionne la MeFC :

Option Explicit

Sub SuppLignes()
Dim I As Integer
'Dim DerLigne
'Dim Coul1
'Coul1 = 0
'Coul1 = Cells(1, 2).FormatConditions(1).Interior.ColorIndex
'MsgBox Coul1
For I = Range("A100").End(xlUp).Row To 1 Step -1
    If Cells(I, 2) = "a" Then Cells(I, 1).EntireRow.Delete
Next I
End Sub

A + à tous

Édition : Oups pas vu l'ami Toto... A++

 

[JORDAN]

Re : Suppression lignes en fonction couleur MFC

Bonjour Tototiti, JCGL, le Forum,

Sincèrement désolé de ne pas vous avoir répondu plus tôt, j'avais vu vos messages et testé vos solutions.
C'est impécable, un grand merci pour votre aide.

Bonne fin de journée