Macro de manipulation de TCD, améliorer la vitesse
Bonjour,
J'ai fait une macro qui modifie les parametre de ligne des mes TCD suivant les choix l'utilisateur.
Le problème c'est qu'a modification de parametre il recalcule tout le TCD ce qui prend beaucoup trop de temps.
J'aurais aimé savoir s'il était possible de lui donné les parametre et seulement ensuite qu'il recalcul le TCD.
J'ai essayé avec
Code:
Application.Calculation = xlCalculationManual
mais ça ne marche pas.
Voici le code que j'utilise pour un parametre (j'en ai 8 en tout)
Code:
1 2 3 4 5 6 7 8 9 10 11
| If pays = "" Then
If Not (sh.PivotTables(TCD.Name).PivotFields("PAYS").Orientation = xlHidden) Then
sh.PivotTables(TCD.Name).PivotFields("PAYS").Orientation = xlHidden
End If
Else:
pos = 1
With sh.PivotTables(TCD.Name).PivotFields("PAYS")
.Orientation = xlRowField
.Position = pos
End With
End If |
Merci d'avance.