Filtre automatique

job75 à dit:

Bonsoir mcj1997, bonsoir chris 🙂

Le filtrage étant réalisé, on peut aussi lancer cette macro :

Code:

Sub Test()
Dim r As Range, sup As Range
For Each r In ActiveSheet.UsedRange.Rows
If r.EntireRow.Hidden Then _
  Set sup = Union(r, IIf(sup Is Nothing, r, sup))
Next
If Not sup Is Nothing Then sup.EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

Les lignes masquées sont tout simplement supprimées.

A+

Cliquez pour agrandir...