supprimer les lignes qui ne contiennent pas de mise en forme conditionnelle

[Nick21]

Bonjour
Dans un tableau, je ne souhaiterais garder que les lignes qui présentent une mise en forme conditionnelle (Ex : fond rouge)
Merci par avance pour vos eclairages.

Nick

 

[Robert]

Re : supprimer les lignes qui ne contiennent pas de mise en forme conditionnelle

Bonjour Nick et bienvenu, bonjour le forum,

Il te faut utiliser le même critère que pour ta mise en forme conditionnelle :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim li As Long 'déclare la variable li (LIgne)

With Sheets("STAT") 'prend en compte l'onglet "STAT"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit las dernière ligné éditée dl de la colonne 1 (=A)
    For li = dl To 2 Step -1 'bocle inversée de la dernière ligne dl à la ligne 2
        'si la valeur de la cellule en colonne H est inférieure à 0.63 ou supérieure à 0,66, supprime la ligne
        If .Cells(li, 8) > 0.66 Or .Cells(li, 8) < 0.63 Then .Rows(li).Delete
    Next li 'prochaine ligne de la boucle
End With 'fin de la prise en compte de l'onglet "STAT"
End Sub

 

[Nick21]

Re : supprimer les lignes qui ne contiennent pas de mise en forme conditionnelle

Merci et félicitations pour réponse et rapidité !

 

[Nick21]

Re : supprimer les lignes qui ne contiennent pas de mise en forme conditionnelle

Bonjour
Il me reste un problème : c'est de faire fonctionner ce système avec de multiples mises en forme (en fait, j'ai deux critères de mise en forme par colonne) : doivent etre supprimées toutes les lignes pour lesquelles il n'y a aucune mise en forme conditionnelle et doivent rester celles pour lesquelles il y a au moins une MEFC.

Je joins un autre tableau qui sera plus proche de la réalité

Merci
Nick