Bonjour,
Je cherche à cocher tous les filtres grâce à du code VBA présents sur un tableau croisé dynamique.
J'ai utilisé le code suivant :
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.VisibleFields
For Each Pi In pf.PivotItems
On Error Resume Next
Pi.Visible = True
Next Pi
Next pf
Next pt
J'obtiens l'erreur : "Erreur d'exécution '1004' ".
Quelqu'un voit-il d'où vient le problème et si non, avez-vous une autre solution pour activer tous les filtres par VBA?
Je vous remercie d'avance!!
Je cherche à cocher tous les filtres grâce à du code VBA présents sur un tableau croisé dynamique.
J'ai utilisé le code suivant :
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.VisibleFields
For Each Pi In pf.PivotItems
On Error Resume Next
Pi.Visible = True
Next Pi
Next pf
Next pt
J'obtiens l'erreur : "Erreur d'exécution '1004' ".
Quelqu'un voit-il d'où vient le problème et si non, avez-vous une autre solution pour activer tous les filtres par VBA?
Je vous remercie d'avance!!
Dernière édition:
