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

  • Initiateur de la discussion Initiateur de la discussion Dut
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dut

XLDnaute Nouveau
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)
 
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
@+
 
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. 🙁
 
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!
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour