Filtre automatique et supprimer ligne entière

excelnase · 28 Décembre 2011

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 · 28 Décembre 2011

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 · 28 Décembre 2011

Re : Filtre automatique et supprimer ligne entière

Bonsoir

La même mais en version WeightWatchers

Code:

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

excelnase · 28 Décembre 2011

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

Bonsoir

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

Meilleures salutations

ExcelNase

Filtre automatique et supprimer ligne entière

excelnase

Guest

Pièces jointes

flyonets44

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

excelnase

Guest

Discussions similaires

Filtre automatique et supprimer ligne entière

excelnase

Guest

Pièces jointes

flyonets44

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

excelnase

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency