XL 2013 VBA avec bouton pour effacer les filtre et revenir à la dernière ligne d'un tableau

[ANTONY34200]

Bonjour le forum,
j'ai un tableau de plusieurs colonnes, avec des filtres. Dans ce tableau j'ai plus de 1000 lignes.
quand je passe par l'onglet DONEES Effacer les filtres, je remonte en haut du tableau.
j'aimerais créer un bouton, dans ma première ligne qui est figée, qui efface les filtres et qui me face revenir sur la dernière ligne de mon tableau.
Merci d'avance pour le coup de main

 

[chris]

Bonjour

Tableau structuré ?

 

[ANTONY34200]

oui

 

[chris]

RE

    With [NomTableau].ListObject
        .HeaderRowRange.Cells(1, 1).Select
        .Range.AutoFilter 
        Selection.End(xlDown).Select
    End With

Adapter au nom du tableau

 

[ANTONY34200]

Re,
ça me renvoi bien à la derniere ligne ... c'est super merci,
mais ça me supprime les filtre, alors que j'aurais juste voulu effacer si les filtres ...
je sais pas si j'arrive à me faire comprendre ...
J'ai besoin des filtres pour mes recherches, je veux juste les "annuler" ce que j'ai filtré, en cliquant sur le bouton.

 

[ANTONY34200]

J'ai trouvé ...

With [NomTableau].ListObject
        .HeaderRowRange.Cells(1, 1).Select
        .Range.AutoFilter
        .Range.AutoFilter
        Selection.End(xlDown).Select
    End With

et ça fonctionne

 

[mapomme]

Bonjour,

Une autre version car il me semble que Selection.End(xlDown).Select ne sélectionne pas toujours la dernière ligne mais la cellule juste au-dessus de la première cellule vide (le cas échéant) :

Sub test()
   With Worksheets("Feuil1").ListObjects("Tableau1")
      .AutoFilter.ShowAllData
      .Range.Cells(.Range.Rows.Count, 1).Select
   End With
End Sub

 

[ANTONY34200]

Mapomme,
merci pour votre retour. je vais tester

 

[ANTONY34200]

Ca reviens au meme, sauf que le code

.AutoFilter.ShowAllData

me plait un peu plus que de doubler le code

 .Range.AutoFilter

 

[mapomme]

Ca reviens au meme, sauf que le code

Je ne pense pas et j'ai expliqué pourquoi .