Filtre automatique

[mcj1997]

Bonjour,

Après avoir réalisé une selection par filtre automatique, comment effacer toutes les lignes qui ne sont pas retenues par les données du filtre.

Merci d'avance,

 

[chris]

Re : Filtre automatique

Bonjour

Il y a plusieurs solutions :
soit inverser le filtre et supprimer ce qui est visible
soit ajouter une valeur dans une colonne des lignes filtrées, filtrer les lignes qui n'ont pas cette valeur pour les supprimer
copier coller les lignes filtrées dans un nouvel onglet et supprimer l'ancien
...

 

[job75]

Re : Filtre automatique

Bonsoir mcj1997, bonsoir chris 🙂

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

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+

 

[mcj1997]

Re : Filtre automatique

Bonsoir mcj1997, bonsoir chris 🙂

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

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+

merci à vous deux, une question lors d'un filtre automatique, ou trouve t-on la liste de tri pour la modifier ?