macro initialiser tous les filtres automatique

flo103.g · 28 Novembre 2007

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 · 28 Novembre 2007

Re : macro initialiser tous les filtres automatique

Bonjour Flo

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

Code:

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 · 28 Novembre 2007

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 · 28 Novembre 2007

Re : macro initialiser tous les filtres automatique

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

macro initialiser tous les filtres automatique

flo103.g

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

rafael

XLDnaute Junior

flo103.g

XLDnaute Nouveau

Discussions similaires