Afficher tout après une filtre...

[lapou]

Bonjour tout le monde !!!

J'ai une fichier avec des filtres en Auto.
J'aimerais par une macro sans doute, que lorsque je l'exécute, tt les filtres s'annulent et j'ai tout à l'écran.

Autrement dit le même principe que l'icone "Afficher tout".

Merci bcp pour votre aide ;-)
Tchao

 

[effeZERO]

Bonjour Lapou, le forum,
Essaye ceci :

Sub Macro1()
Selection.AutoFilter
End Sub

Bonne soirée.
Franck

 

[@+Thierry]

Re Bonjour Lapou, Bonjour EffetZéro, le Forum

Je conseillerai plutôt ceci :

Sub AutoFilterShowAll()
With Sheets("TheFeuille")
If .FilterMode = True Then .ShowAllData
End With
End Sub

Car ce que tu proposes Franck, n'affiche pas toutes les données mais supprime carrément l'AutoFilter si il est ON et le met si il est OFF...

Bonne Soirée

 

[effeZERO]

Re-bonsoir à tous les deux, le forum,
Merci pour l'astuce @+Thierry, j'utilisais toujours la même méthode mais dorénavant je procéderais comme tu le dis ! Ca va m'enlever quelques épines du pied !!!
Encore merci et bonne soirée !
Franck

 

[lapou]

Bonjour,

Juste une ultime question en ce jolie jeudi qui arrive ;-) : où dois-je mettre cette macro ? car je n'ai pas encore ttes ces notions ;-)

Merci
Lapou...

 

[@+Thierry]

Salut Lapou, Franck, le Forum

Et bien Lapou, c'est une simple Macro que tu peux mettre dans un Module Standard... Ou alors dans le Private Module de Feuille...

Il n'y a rien de Sorcier, c'est pareil que si tu enregistres une macro, tu dessines ensuite un Bouton et tu y affectes cette macro.

Je t'ai fait une démo ci-jointes car il y a deux style de Boutons...
Rudiments-Basics =>Buttons : "Controls" or "Forms"...



Bon Aprèm
@+Thierry

 

[lapou]

Enormes merci pour toi Thierry ;-)

Bonne journée
Tchao