Bonjour à tous,
je n'arrive pas à résoudre un probleme de mise à jour d'un graphe grace à une fonction VBA.
La fonction est la suivante:
Une fonction met a jour les données dans "multidata_range" et celle-ci met le graphe à jour.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub UpdateMultiGraph() 'update chart data Worksheets("Multi files").ChartObjects(1).Activate ActiveChart.HasTitle = True ActiveChart.ChartTitle.text = Range("multidata_range") ActiveChart.Axes(xlValue).AxisTitle.text = Range("multitest_name") & " (" & Range("multitest_unit") & ") " If Range("var1_value") = 0 Or Range("multivar2_name") = "" Then ActiveChart.Axes(xlCategory).AxisTitle.text = Range("multiVar1_name") & " (" & Range("multiVar1_unit") & ") " Else ActiveChart.Axes(xlCategory).AxisTitle.text = Range("multiVar2_name") & " (" & Range("multiVar2_unit") & ") " End If 'ActiveChart.Legend.Height = 7.5 * n_row + 3.5 Range("multidata_range").Select End Sub
Cela fonctionnait tres bien avec Excel 2003 mais plus avec Excel 2007.
Quelqu'un aurait-il une explication et/ou une solution à mon probleme?
Merci beaucoup.
Partager