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

chris

XLDnaute Barbatruc

• 22 Juin 2023

• #2

Bonjour

Tableau structuré ?

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 22 Juin 2023

• #3

oui

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Juin 2023

• #4

RE

VB:

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

Adapter au nom du tableau

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 22 Juin 2023

• #5

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.

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 22 Juin 2023

• #6

J'ai trouvé ...

VB:

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

et ça fonctionne

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2023

• #7

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

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 22 Juin 2023

• #8

Mapomme,
merci pour votre retour. je vais tester

 

Vote positif 0 Vote négatif

A

ANTONY34200

XLDnaute Occasionnel

• 22 Juin 2023

• #9

Ca reviens au meme, sauf que le code

VB:

.AutoFilter.ShowAllData

me plait un peu plus que de doubler le code

Code:

 .Range.AutoFilter

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Juin 2023

• #10

ANTONY34200 à dit:

Ca reviens au meme, sauf que le code

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif