Macro retirer filtre

Bonsoir tous le monde.

J'ai un bouton sur une de mes feuil qui permet de retirer tous les filtres actifs de ma feuille.

Sub aa()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

Je souhaite faire fonctionner la macro du dessus avec celle ci :

bouton avec une macro qui me permet de quitter la feuille.

Sub quefaire4()
Sheets("quefaire4").Select
End Sub

merci de votre aide.

Peux-tu être plus clair qur ce que tu souhaites ?

Un exemple peut-être ?

Bonjour,

Sub quefaire4()
aa
Sheets("quefaire4").Select
End Sub

eric

Merci Eriicc, ca ne fonctionne pas.

J'ai la macro aa dans le module 1

j'ai la macro quefaire4 dans le module 2

et ca ne fonctionne pas en mettant le aa dans la macro quefaire4

Voici le classeur en pièce jointe.

Le bouton rouge execute la macro ci-dessous pour se rendre sur une autre feuil.

Sub quefaire4()
Sheets("quefaire4").Select
End Sub

Je n'arrive pas à intégrer la macro pour que quand je clique sur le bouton rouge, tous les filtres se désactivent.

pas besoin de les réactiver.

il ne faut pas toucher à la ligne 8 et les filtres doivent rester sur la ligne 8

merci d'avance pour votre aide.

Une macro peut tout à fait appeler une autre d'un autre module standard.

S'il s'agit d'un module de classe il faut le nommer : Feuil1.aa

Sinon tu ajoutes tout simplement ActiveSheet.ShowAllData au début. Pour 1 ligne ça ne vaut pas le coup d'appeler autre chose.

Et ton fichier n'a qu'une seule macro...

Donc je met cette macro la sur mon bouton rouge? Et rien d'autre a faire?

Sub quefaire4()
ActiveSheet.ShowAllData
Sheets("quefaire4").Select
End Sub

Et a chaque fois que je clique sur le bouton ca me retire les filtres?

Je répondais à ta question comment appeler une autre macro.

Pour ce qui est du contenu de tes macros normalement on doit tester si un filtre est actif sinon erreur.

If ActiveSheet.FilterMode Then ....

eric

bonjour tous le monde bonjour eric

je ne comprend pas grand chose au code que je doit mettre.

tu peux m'aider avec le classeur joint sur mon post precedent?

merci

essaie avec :

Sub quefaire4()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Sheets("quefaire4").Select
End Sub

Pas la peine d'essayer de faire des macros si tu ne fais pas l'effort d'apprendre les rudiments d'abord.

Tu as tout un tas de cours sur internet pour ça, à commencer par ce site menu Cours VBA en haut.

eric

Bonsoir tous le monde,

Merci eric pour ton aide, tu as raison je vais allez fouiner les cours vba du site.

merci encore