Re : VBA - Mettre à jour les graphiques d'une feuille
Bonjour haleakala,
voici une macro que j'utilise dans un de mes classeur pour mettre à jour mes TCD et par la même occasion les graph associés. pour commander la macro j'ai mis un bouton "Mise àJour" sur la première feuille de mon classeur, je ne sais pas si cela pourra te convenir mais je te livre le code, à adapter avec ton classeur.
Sub MiseAJour()
'
' MiseAJour Tableau et Graph
' Macro enregistrée le 15/09/2005 par
P@cM@n
'
' Tableau et Graphique A'
Sheets("Graphique Général").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "Données" _
, xlLabelOnly, True
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
' Tableau et Graphique B'
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect "Données" _
, xlLabelOnly, True
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
' Tableau et Graphique C'
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotSelect "Données" _
, xlLabelOnly, True
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
ActiveWorkbook.ShowPivotTableFieldList = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
ActiveWindow.Visible = True
Sheets("feuille1").Select
Range("A1").Select
End Sub
en espérant t'avoir aider.
@+