Filtre automatique et supprimer ligne entière

[excelnase]

Bonjour à toutes et à tous

J'ai un problème avec une de mes feuilles excel.

Voilà,
lorsque je filtre une feuille et que je veux supprimer que
la premiere ligne de données (2 ème ligne de la feuille)
cela me supprime aussi la première ligne de la feuille (Ligne des titres)
je ne sais pas pourquoi et comment je dois faire pour corriger cela!

je joins un petit classeur comme exemple.

si quelqu'un a une soluce


Merci

 

[flyonets44]

Re : Filtre automatique et supprimer ligne entière

Bonjour

avec ce code çà devrait solutionner ton souci
Set Rng = Feuil1.Cells.SpecialCells(xlCellTypeVisible)
'Filtre sur colonne A sur un seul critère
Rng.AutoFilter Field:=Col, Criteria1:=Crt
With Range("_FilterDataBase")
Set Rng = .Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
Rng.delete
End With

Cordialement
flyonets

 

[Staple1600]

Re : Filtre automatique et supprimer ligne entière

Bonsoir


La même mais en version WeightWatchers

Sub cafesansfiltre()
[_FilterDataBase].Offset(1, 0).Resize([_FilterDataBase].Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
End Sub

 

[excelnase]

Re : Filtre automatique et supprimer ligne entière (Résolu)

Bonsoir

Merci à Flyonets44 et Staple1600 pour ces soluces!
Elle fonctionnent à merveille

Meilleures salutations

ExcelNase