Supprimer lignes filtrées

S240714 · 4 Août 2006

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

Robert · 4 Août 2006

Re : Supprimer lignes filtrées

Bonjour SD243465as, bonjour le forum,

Peut-être un truc du style :

Code:

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 · 4 Août 2006

Re : Supprimer lignes filtrées

Bonjour

Ce code devrait suffir

Code:

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

Supprimer lignes filtrées

S240714

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

JeanMarie

XLDnaute Barbatruc

Discussions similaires