Empêcher le rafraichissement automatique d'un tableau croisé dynamique

[Dut]

Bonjour,

Je voudrais mettre à jour un filtre dans un tableau croisé dynamique avec le code suivant.

    With ActiveSheet.PivotTables("TCD1").PivotFields("COLONNE_A")
        .PivotItems("VALEUR1").Visible = False
        .PivotItems("VALEUR2").Visible = False
        .PivotItems("VALEUR3").Visible = True
        .PivotItems("VALEUR4").Visible = False
        .PivotItems("VALEUR5").Visible = False
        .PivotItems("VALEUR6").Visible = False
        .PivotItems("VALEUR7").Visible = False
        .PivotItems("VALEUR8").Visible = False
        .PivotItems("VALEUR9").Visible = False
        .PivotItems("VALEUR10").Visible = False
    End With

Le problème c'est qu'il relance le calcul du tableau à chaque ligne... donc 10 fois !
Du coup ça met trois plombes !

=> Je voudrais juste empêcher le TCD de se rafraichir automatiquement (quitte à le déclencher moi-même à la fin du traitement)

 

[Pierrot93]

Re : Empêcher le rafraichissement automatique d'un tableau croisé dynamique

Bonjour,

essaye peut être en mettant le calcul sur ordre, non testé...

Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic

bon après midi
@+

 

[Dut]

Re : Empêcher le rafraichissement automatique d'un tableau croisé dynamique

Bonjour,

Désolé le sujet est resté en suspens pendant un moment car les priorités côté boulot avaient été revues...
Malheureusement la solution de Pierrot93 ne fonctionne pas.

 

[Guest]

Re : Empêcher le rafraichissement automatique d'un tableau croisé dynamique

Bonjour,

With ActiveSheet.PivotTables("TCD1")
            .ManualUpdate = True
           With PivotFields("COLONNE_A")
                             'Code modification
          End With
          .ManualUpDate= False 
          .UpDate
End With

Bonjour Pierrot
A+

[Edit] y a des jours où je maudis l'éditeur de code!