Après un filtre, je me trouve avec certaines lignes affichées sur ma
feuille, justement ce sont ces lignes-là que je veux supprimer, mais comment
le faire en VBA
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Sub sup() Set x = Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1, Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible) x.EntireRow.Delete End Sub
Cordialement JB
Bonjour à tous,
Après un filtre, je me trouve avec certaines lignes affichées sur ma feuille, justement ce sont ces lignes-là que je veux supprimer, mais co mment le faire en VBA
Merci pour votre aide. Xavier
Bonjour,
Sub sup()
Set x = Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1,
Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible)
x.EntireRow.Delete
End Sub
Cordialement JB
Bonjour à tous,
Après un filtre, je me trouve avec certaines lignes affichées sur ma
feuille, justement ce sont ces lignes-là que je veux supprimer, mais co mment
le faire en VBA
Sub sup() Set x = Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1, Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible) x.EntireRow.Delete End Sub
Cordialement JB
Bonjour à tous,
Après un filtre, je me trouve avec certaines lignes affichées sur ma feuille, justement ce sont ces lignes-là que je veux supprimer, mais co mment le faire en VBA
Merci pour votre aide. Xavier
Xavier
Ca marche. Merci beaucoup pour ton aide.
Bonjour,
Sub sup() Set x = Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1, Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible) x.EntireRow.Delete End Sub
Cordialement JB
Bonjour à tous,
Après un filtre, je me trouve avec certaines lignes affichées sur ma feuille, justement ce sont ces lignes-là que je veux supprimer, mais comment le faire en VBA
Merci pour votre aide. Xavier
Ca marche. Merci beaucoup pour ton aide.
Bonjour,
Sub sup()
Set x = Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1,
Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible)
x.EntireRow.Delete
End Sub
Cordialement JB
Bonjour à tous,
Après un filtre, je me trouve avec certaines lignes affichées sur ma
feuille, justement ce sont ces lignes-là que je veux supprimer, mais comment
le faire en VBA
Sub sup() Set x = Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1, Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible) x.EntireRow.Delete End Sub
Cordialement JB
Bonjour à tous,
Après un filtre, je me trouve avec certaines lignes affichées sur ma feuille, justement ce sont ces lignes-là que je veux supprimer, mais comment le faire en VBA
