Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ANTONY34200

XLDnaute Occasionnel
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
 

ANTONY34200

XLDnaute Occasionnel
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.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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) :
VB:
Sub test()
   With Worksheets("Feuil1").ListObjects("Tableau1")
      .AutoFilter.ShowAllData
      .Range.Cells(.Range.Rows.Count, 1).Select
   End With
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…