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

Dut · 26 Mars 2014

Bonjour,

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

Code:

    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 · 26 Mars 2014

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

Bonjour,

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

Code:

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

bon après midi
@+

Dut · 8 Avril 2014

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 · 9 Avril 2014

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

Bonjour,

Code:

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!

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

Dut

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Dut

XLDnaute Nouveau

Guest

Guest

Discussions similaires