Vba Suppression de filtre
Résolu/Fermé
A voir également:
- Vba enlever filtre s'il y en a
- Photo filtre gratuit - Télécharger - Retouche d'image
- Enlever mode sécurisé tv free ✓ - Forum Freebox
- Enlever bing - Guide
- Comment enlever une page sur word - Guide
- Filtre manga - Guide
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)
