macro robuste pour supprimer lignes apres filtrage

[picflute]

Bonjour,

J'essaie de créer une macro vba pour effacer les lignes que je vois pares filtrage.
Toutes mes tentatives echouent car elles effacent la ligne ou il y a le filtre.

J'ai essaye 2 methodes:

Code :

1
2
3
4
 Selection.AutoFilter Field:=19, Criteria1:="0,0"
    Range(Selection, Selection.End(xlDown)).EntireRow.Select
    Selection.SpecialCells(xlCellTypeVisible).Delete
    Selection.AutoFilter Field:=19

ou:

Code :

 Selection.AutoFilter Field:=19, Criteria1:="0,0"

Range("a5",[a65536].End(xlUp).Address).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Dans mon exemple, A5 est la premiere case de la premiere lignes affichées apres filtrage, et donc la premiere ligne a effacer.

Merci de votre aide car apres plusieurs jours de recherche sur le net, je trouve des bouts d ecode mais il ne marche pas sytematiquement.
Par exemple, le 2ième code que j'ai mis marche pour un fichier excel mais ne marche pas sur un autre ou la ligne du filtre est effacee sans savoir pourquoi.

[Ormonth]

Bonjour,

vois la réponse dans : ce fil 17h57.

La solution est au niveau de Resize

cordialement,

Didier

[picflute]

Merci Ormonth et désolé de mon retard mais je pensais que je recevrais un mail qd j'aurais une reponse.

ALors j'ai essayé avec ta remarque mais je suis pas sur d'utiliser correctement la fonction resize, Je debute un VBA.
J'ai fait le code suivant mais ca m'efface tout ce qu'il y a ds sous la ligne de filtrage.

Code :

1
2
3
4
5
6
7
8
9
Sub Macro2()
 
    ActiveSheet.ShowAllData
    Selection.AutoFilter Field:=19, Criteria1:="0,0"
    ActiveWindow.Panes(1).Activate
    Set to_delete = ActiveSheet.AutoFilter.Range 
    to_delete.Offset(1, 0).Resize(to_delete.Rows.Count - 1, to_delete.Columns.Count).EntireRow.Delete
    Selection.AutoFilter Field:=19
End Sub

De plus, ce que je comprends pas c'est que le premier code que j'ai decrit, marche sur un autre fichier donc ca a l'air plutot aleatoire mon truc et pourtant ce sont les lignes de codes décrites sur tous les forums.

Donc, ta solution avec resize doit surement mieux convenir mais je ne dois pas bien l'utiliser.

Qu'ai-je rate?

Merci pour ton aide.

[picflute]

activation de la notification par mail