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 : 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
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.