macro initialiser tous les filtres automatique

[flo103.g]

Bonjour à tous,
Je recherche un petit bout de code qui me permetrai d'initialiser (pas enlever) tous les filtres automatiques sur toutes les feuilles du classeur (thisworkbook)
Marciiiii!

 

[Pierrot93]

Re : macro initialiser tous les filtres automatique

Bonjour Flo

si j'ai bien compris, essaye peut être le code ci dessous :

Dim ws As Worksheet
For Each ws In Worksheets
     If ws.FilterMode Then ws.ShowAllData
Next ws

equivaut à la commande "afficher tout", si le filtre auto est activé.

bon après midi
@+

 

[rafael]

Re : macro initialiser tous les filtres automatique

Bonjour flo103,
solution 1 personaliser la barre d'outil et ajouter le bouton "afficher tout"
click droit de la souris quand le pointeur est sur les bouton de la barre doutis, puis personnaliser, puis onglet commande , données, faire glisser le bouton "afficher tout" dans la barre d'outil.

soit macros : "ActiveSheet.ShowAllData"

 

[flo103.g]

Re : macro initialiser tous les filtres automatique

Merci tout le monde, Cela marche très bien!
PB résolu!