FredFirmin
XLDnaute Nouveau
Bonjour à tous,
Voici ma question :
Je doit mettre à jour le filtre d'un TCD à partir d'une liste de valeur renseignée dans une cellule. Le filtre de mon TCD contient environ 200 à 300 de valeurs.
Afin de n'afficher que les valeurs qui m'intéressent, je décoche tous les valeurs par le code suivant ;
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Vendor")
For Each monPivIt In .PivotItems
monPivIt.Visible = False
Next
On Error Resume Next
End With
Le code marche bien mais prend énormément de temps.
Je ne suis pas expert en VBA et peut-être que ce petit bout de code n'est pas optimisé.
Merci par avance pour votre retour.
Frédéric FIRMIN
Voici ma question :
Je doit mettre à jour le filtre d'un TCD à partir d'une liste de valeur renseignée dans une cellule. Le filtre de mon TCD contient environ 200 à 300 de valeurs.
Afin de n'afficher que les valeurs qui m'intéressent, je décoche tous les valeurs par le code suivant ;
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Vendor")
For Each monPivIt In .PivotItems
monPivIt.Visible = False
Next
On Error Resume Next
End With
Le code marche bien mais prend énormément de temps.
Je ne suis pas expert en VBA et peut-être que ce petit bout de code n'est pas optimisé.
Merci par avance pour votre retour.
Frédéric FIRMIN
Dernière édition: