Vba Suppression de filtre

Résolu/Fermé
Bruno64 - 8 mars 2010 à 12:00
 Bruno64 - 9 mars 2010 à 16:15
Bonjour à tous,

Voila 3h que je lutte avec ma macro...
Je vais essayer d'expliquer clairement mon soucis.

Ma macro appelle une feuille nommée "recap" dans un dossier sur le reseau.
Cette fiche recap elle remplie par diverses personnes du bureau, elle est donc soumise à pas mal de manipulations.

Mon but est d'utilisée cette feuille pour effectuer des opérations et remplir ensuite Ma feuille!

Bref, la plupart du temps ma macro fonctionne trés bien, le seul soucis est lorsque les utilisateurs de la feuille récap modifient les filtres... (Ils décochent, recochent a tout va...), et moi j'ai besoin que toutes les données soient affichées pour faire mes calculs via macro.

Donc il faut que::
- Soit, je supprime les filtres (tjr en vba) pour tout afficher.
- Soit, de trouver une commande qui ignore les filtres?

Bref, je rame.
Merci de m'avoir lu, et bonne journée a tous.


Bruno.

12 réponses

Je pose tout de même la soluce finale, pour les gens qui rencontreront le même soucis d'erreur en fin de boucle.
Il suffit de rajouter un test d'erreur => next.

Ce qui donne à la fin:

Sub effacer_filtres_TCD()

Sheets("RECAP").Select
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.VisibleFields
For Each Pi In pf.PivotItems
Pi.Visible = True
On Error Resume Next
Next Pi
Next pf
Next pt

Application.ScreenUpdating = True

End Sub

Vala!

A Bientot :)
(et encore merci a tom)
5