Vba Suppression de filtre
Résolu
Bruno64
-
Bruno64 -
Bruno64 -
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.
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.
A voir également:
- Supprimer les filtres excel
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Word et excel gratuit - Guide
- Supprimer pub youtube - Accueil - Streaming
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)
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)
