Discussion :

[Victory94]

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.

[EricDgn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!