Effacer des toutes les lignes affichées apres filtrage dans excel en VBA

Question

Bonjour,

Dans le cadre de mon boulot, je cherche a automatiser un allegement de fichier excel en supprimant des lignes apres les avoir filtrer ds excel.
J'ai donc essayer avec le module VB d'excel et voila ce qu'il me sort:

Sub titi()
    Sheets("sheet_name").Select
    Selection.AutoFilter Field:=1, Criteria1:="filtre"
    Rows("1810:1810").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
End Sub

Le probleme est donc qu'il me supprimera tout a partir de la ligne 1810 mais que ca ne marchera pas si la premiere ligne a effacer est differente.

En gros, je voudrais qu'il m'efface toutes les lignes affichées apres filtrage quelquesoit les lignes de début et de fin.

J'ai cherché sur le net et ce forum mais je n'ai pas trouvé quelquechose que je puisse exploiter.

Bon d'accord, je debute en VB.

Merci de votre aide.

picflute · Answer

Juste pour dire que lors de mon enregistrement de macro ss excel, j'ai selectionné la premiere ligne apres filtrage, puis shift+ctrl puis fleche bas, ce qui m'a ss doute généré:
    Rows("1810:1810").Select
    Range(Selection, Selection.End(xlDown)).Select
Comment lui dire de sélectionner toutes les lignes que le filtre lui renvoie, ss Rows.select car il contient le numéro de ligne.

Effacer des toutes les lignes affichées apres filtrage dans excel en VBA

1 réponse

Votre réponse

Discussions similaires