Discussion :

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlCalculationManual

mais ça ne marche pas.
Voici le code que j'utilise pour un parametre (j'en ai 8 en tout)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[78chris]

Bonjour

Il y a une option dans l'interface mais non tracée par l'enregistreur de macros.

Sans doute en lien avec SheetPivotTableBeforeAllocateChanges : piste à creuser

[halaster08]

Bonjour ,

Merci pour la réponse ,je suis allé voir l'aide sur "SheetPivotTableBeforeAllocateChanges" mais malheureusement je n'ai absolument rien compris.
Mes connaissances en VBA se limitent uniquement a du copie/adaption de ce que je fais via l'enregistreur de macro.

edit:
Par contre grâce a toi j'ai pu chercher en anglais avec le nom du bouton que je n'avais pas vu, et je suis tombé la dessus

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
16
With Sheet1.PivotTables(“PivotTable1″)
 
 
.ManualUpdate= True
 
 
.PivotFields(“PivotField1″).Orientation = xlRowField
 
 
.PivotFields(“PivotField2″).Orientation = xlColumnField
 
 
.ManualUpdate= False
 
 
End With

Donc encore merci.

[78chris]

Re

Merci à toi : car au moins je connaitrais la correspondance VBA.

C'est ça l'avantage du forum : on progresse ensemble .

[eriiic]

Bonjour,

comme tu as tout sous la main tu pourrais tester si :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("mafeuillequimembete").EnableCalculation = False

bloque également le rafraichissement d'un TCD ?
Préciser si ta source de donnée est interne au classeur ou externe.
Merci

[halaster08]

comme tu as tout sous la main tu pourrais tester si :

C'est vrai que faire un TCD bidon pour tester toi même prend beaucoup de temps ...

Enfin bon, comme je suis gentil la réponse est non. Et ma source est externe.

[eriiic]

Merci et désolé de t'avoir dérangé en m'intéressant à ta question.