Microsoft 365 Défiltrer une colonne avec VBA

[katzchen]

Bonjour tout le monde !

Je suis actuellement en train de travailler sur un fichier dans lequel j'ai besoin de faire des boutons. J'ai réussi à faire mes 3 boutons permettant le filtrage de ma colonne E (3 données).
Problème, je n'arrive pas à créer un bouton qui me permettrait d'afficher toute ma colonne et donc d'enlever le filtre. Voici le code que j'ai effectué :

Sub reset_Click1()

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

End Sub

Celui-ci ne marche qu'une seule fois et après le message d'erreur suivant s'affiche :

Erreur d'exécution '1004':
La méthode ShowAllData de la classe Worksheet a échoué.

Pouvez-vous m'éclairer s'il vous plait ?

Belle journée à tous.

 

[chris]

Bonjour
Pourquoi réinventer l'eau tiède...
Ce bouton existe déjà dans l'interface Excel : entonnoir avec un X rouge dans l'onglet Données.
On peut placer cet bouton dans la barre de lancement rapide pour l'avoir toujours à porté de clic

 

[Phil69970]

Bonjour à tous

@katzchen bienvenu sur XLD

Avec un fichier on pourrait mieux comprendre le besoin et répondre au plus juste ......