Bonjour,
(Première discussion sur ce site!)

Je rencontre un problème avec l'utilisation de manualupdate dans un TCD

Exemple:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Application.Calculation = xlManual
Application.Calculation = xlCalculationManual
Set PT = ActiveSheet.PivotTables(1)
PT.ManualUpdate = True
Application.ScreenUpdating = False
Application.DisplayAlerts = False
i = 1
For Each valeur In ActiveSheet.PivotTables(1).PivotFields("NOM").PivotItems
 
If i < 100 Then valeur.Visible = False
i = i + 1
Next
 
End Sub
l'instruction PT.ManualUpdate = True est bien prise en compte.

Mais dès la ligne suivante, PT.ManualUpdate se repositionne systématiquement à False (quelle que soit la position de cette instruction dans la macro), et donc temps de traitement beaucoup plus long lorsque le TCD est très volumineux.

Pourriez-vous m'indiquer s'il existe une solution à ce problème?

Merci d'avance!