TCD & Filtres lents

Fermé
Ezee - 25 févr. 2015 à 20:51
Bonjour,

J'ai rédiger un code macro pour piloté un TCD.
Je sélectionne un critère (valeurs dans une feuille xls) avec le "Filtre s'appliquant aux étiquettes égal à ..."
Je lance l'impression du TCD
puis je change de critère.

Voici le code

For i = 3 To 73
On Error Resume Next
ValeurDuFiltre = Sheets("Liste").Cells(i, 1).Value
Titre = Sheets("Liste").Cells(i, 2).Value
' Selection du filtre
Sheets("AR").Cells(7, 1).Select

With ActiveSheet
.PivotTables("Tableau croisé dynamique1").PivotFields("Ressource").ClearAllFilters
.PivotTables("Tableau croisé dynamique1").PivotFields("Ressource").PivotFilters.Add Type:=xlCaptionEquals, Value1:=ValeurDuFiltre
End With

quand j'arrive sur le
.PivotTables("Tableau croisé dynamique1").PivotFields("Ressource").ClearAllFilters
ça devient super lent.

Pouvez vous m'aider pour résoudre cette lenteur ? j'ai 795 ligne dans le TCD...

par avance merci !

E