XL 2010 Boucle PivotTable

[fil28]

Bonjour le forum,

J'ai besoin de vos lumières car je suis bloqué sur une macro.

Une valeur est définie par l'utilisateur elle s'appelle JourOver qui est en général aux alentours de 15
Je fais ensuite une boucle sur le pivot table (sur toutes le valeurs de p)

Le problème que j'ai c'est que dans ce pivot table je peux avoir des milliers de lignes et la boucle que je fais prend beaucoup trop de temps. Dis autrement il y a beaucoup trop de P.value
Du coup j'aimerais un coup de main pour que ca aille plus vite.
Auriez vous une solution ?

Peut être faudrait-il tout décocher puis sélectionner les valeurs de p de 0 à JourOver ? Je n'arrive pas à le traduire par code

    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
    ActiveSheet.PivotTables("Tableau croisé dynamique2").ClearAllFilters

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Days Overdue")
    'For Each p In .PivotItems
        'p.Visible = True
    'Next p
    For Each p In .PivotItems
        If Val(p.Value) >= JourOver Then p.Visible = False
    Next p

    End With

Merci d'avance pour votre aide
Philippe

 

[fil28]

J'ai lu des posts avec manual update sur un tcd quelqu un sait comment intégrer cette fonction dans la procédure ?

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Days Overdue")

J'ai essayé de le positionner à la fin mais ça n'a pas l'air de fonctionner

Merci
Philippe

 

[Staple1600]

Bonsoir @fil28 , le fil

Si tu joignais un fichier exemple allégé et anonymisé (incluant ton TCD et ton code VBA actuel), ce serait plus simple pour faire des tests et tenter de t'aider, non ?

 

[fil28]

Bonsoir @Staple1600 oui effectivement !
Je vais essayer de joindre une vlight demain

 

[fil28]

Bonjour le forum, @Staple1600,

Je vous joins un fichier ,
Merci encore pour votre aide

 

[Staple1600]

Bonsoir @fil28

Ai-je bien compris la problématique ?

Sub Test()
Dim pvFld As PivotField, JourOver$
Set pvFld = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupement")
pvFld.ClearAllFilters
JourOver = InputBox("Overdue supérieurs ou égal à en J", "Overdue", 15)
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupement").PivotFilters.Add2 Type:=xlCaptionIsGreaterThanOrEqualTo, Value1:=JourOver
End Sub

 

[fil28]

Bonjour le Forum, @Staple1600

Merci @Staple1600 pour ton retour

       '*******************CALULATION OFF*********************************************************************************
    
    Application.Calculation = xlCalculationManual
    
    
        With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Days Overdue")
    'For Each p In .PivotItems
        'p.Visible = True
    'Next p
    For Each p In .PivotItems
        If Val(p.Value) >= JourOver Then p.Visible = False
    Next p
    End With
    

   ' Range("A51").Select
  
  
  '*******************CALULATION ON*********************************************************************************

Ce qui me pose problème c'est que lorsque je fais une boucle sur toutes les valeurs de p. Excel recalcule à chaque changement de valeur. Et comme j'ai énormement de valeur p ca prend un temps fou.
Je souhaitais savoir si vous aviez une solution pour empêcher ce recalcul.


Par ailleurs peux tu stp m'expliquer dans

Dim pvFld As PivotField, JourOver$

Pourquoi mets tu JourOver$ à droite de Pivot Field et pourquoi mets tu un $

Merci encore
Philippe

 

[Staple1600]

Bonjour


C'est une façon de déclarer les variables
JourOver$ est un raccourci pour
Dim JourOver As String

Tu ne me dis pas ce qu'a donné le test du code que j'ai posté dans le message#6