XL 2019 actualiser plusieurs TCD quand clic sur feuille

[saimone]

Bonjour, j'ai dans mon classeur plusieurs feuilles excel.

Certaines d'entre elles contiennent des TCD.
feuil1 contient TCD1; TCD2; TCD3
feuil2 contient TCD4; TCD12; TCD13

Une autre feuille contient des graphiques basés sur ces TCD, elle s'appelle graph.

J'aimerais, lorsque je clique sur la feuille "graph", que touts mes TCDS s'actualisent.

L'enregistreur de macro me donne:

1 - pour le clic sur la feuille:
Sub clicgraph()
Sheets("graph").Select
End Sub

2 - pour l'actualisation des TCDS:
Sub acttttcd()
ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotSelect "client[All]" _
, xlLabelOnly + xlFirstRow, True
ActiveWorkbook.RefreshAll
End Sub

Je pense que le code pour l'actualisation est bon.
Par contre le déclencheur de l'évènement n'est pas bon.

Pouvez vous m'aider à trouver une solution pour cela?

 

[saimone]

ok trouvé, j'ai placé ce code dans la feuille graph, cela fonctionne 🙂

Private Sub Worksheet_activate()
Call acttttcd

End Sub

 

[chris]

Bonjour

attention si tous les TCD sont basés sur la la même source, l’actualisation d'un seul actualise tout

Donc éviter les actualisations inutiles en raisonnant par source

Par ailleurs ActiveWorkbook.RefreshAll ou mieux
ThisWorkbook.RefreshAll
suffit entre Sub et end Sub
pas besoin de tout le reste...