Problème d'actualisation du graphique avec le filtre avec code VBA

Bonjour,
j'ai réalisé un code VBA qui permet d'effectuer un filtre sur un tableau dynamique croisé lié à un graphe, mais je trouve un problème au niveau de ce graphique là qui ne s'actualise pas avec le filtre effectué, je ne sais pas où figure le problème, parce qu’en effet quand j'effectue le filtre manuellement le graphique change directement, mais c'est pas le cas quand je l'automatise.

Bonjour,

Discussion sur ce sujet sur cette page dont la meilleure solution proposée (non testée) consiste à forcer un recalcul des séries du graphique:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ForceChartUptdate() Dim sht, co, sc, temp Set sht = ActiveSheet For Each co In sht.ChartObjects co.Activate For Each sc In ActiveChart.SeriesCollection sc.Select temp = sc.Formula sc.Formula = "=SERIES(,,1,1)" sc.Formula = temp Next sc Next co End Sub

---

mais il y a peut-être une solution encore plus simple (non testée): sauvegarder le classeur forcerait aussi l'actualisation des graphes: ActiveWorkbook.Save (attention: de ce fait l'ancienne version du dossier est écrasée).

Bon tests!