Supprimer lignes filtrées

[S240714]

Bonjour,
je cherche une solution vba me permettant de supprimer les lignes filtrées sous excel

 

[Robert]

Re : Supprimer lignes filtrées

Bonjour SD243465as, bonjour le forum,

Peut-être un truc du style :

Sub Macro1()
Dim li As Long
Dim x As Long
 
li = Range("A65536").End(xlUp).Row
 
For x = li To 1 Step -1
    If Cells(li, 1).EntireRow.Hidden = True Then Cells(li, 1).EntireRow.Delete
Next x
End Sub

 

[JeanMarie]

Re : Supprimer lignes filtrées

Bonjour

Ce code devrait suffir

Sub SupRowFiltre
Range(Range("A2"), Selection.End(xlDown)).EntireRow.Delete
End Sub

A2 étant la ligne qui contient la première valeur de donnée, A1 étant l'entête de champ.

@+Jean-Marie