Graphiques multiples sur feuille excel
Bonjour
J'utilise Excel16 et souhaite programmer une macro traçant plusieurs diagrammes radar sur la même feuille, à des emplacements différents bien sûr. Il y a de nombreuses autres informations, dont les sauts de page entre chaque tracé.
Avant chaque tracé, je récupère les infos des séries à tracer dans un tableau situé dans une feuille intermédiaire "Selection" qui sera lue pour le tracé. La variable globale FirstCell permet de localiser le tracé et change pour chacun d'eux.
Ce tracé est dans une procédure Trace() appelée deux fois pour le moment :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Charts.Add
ActiveChart.ChartType = xlRadarMarkers
ActiveChart.SetSourceData Source:=Sheets("Selection").Range("A1:H1,A2:H2,A3:H3"), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph2" ' position du tracé
Set P = feuilleGraph.Cells(FirstCell + 7, 1).CurrentRegion
ActiveSheet.ChartObjects(1).Left = P.Left
ActiveSheet.ChartObjects(1).Top = P.Top
ActiveChart.FullSeriesCollection(1).Name = "=""rang 1""" ' série 1
ActiveChart.FullSeriesCollection(2).Name = "=""rang 2""" ' série 2
With ActiveChart.Parent ' taille du tracé
.Height = 300 ' resize
.Width = 400 ' resize
End With |
Le premier tracé s'effectue correctement mais le second vient effacer le premier au milieu et apparait bien au bon endroit en dessous.
Comment faire pour que le second tracé ne modifie pas le premier ?
Merci d'avance pour toute réponse.
