[Macro] Plusieurs graphs sur une feuille

[deniooo]

Bonjour,
Avec une macro je cré 5 graph. Pour l'instant pour chaque graph je cré une feuille particuliére (un feuille graph normal !)
Maintenant j'aimerai ne créer qu'une feuille graph et positionner les 5 graph sur une seule feuille.
je met le code à l'heure actuelle :

Set MaFeuille = ActiveWorkbook.Sheets("Feuil1")
    MaFeuille.Activate
    With MaFeuille
        Set PlageData = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 16)
        Set PlageNom = .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight))
    End With
For i = 1 To Cells(1, 2).End(xlToRight).Column - 1 Step 3
        Set MonGraphe = ActiveWorkbook.Charts.Add
        MonGraphe.ChartArea.Clear
        MonGraphe.ChartType = xlColumnClustered
        'MonGraphe.ChartType = xlXYScatterLines
               
        Set PlageX = PlageData.Columns(1)
        For compteur = 1 To 3
            Set PlageY = PlageData.Columns(compteur + i)
            Set MaSerie = MonGraphe.SeriesCollection.NewSeries
            With MaSerie
                .Values = PlageY
                .XValues = PlageX
                .Name = PlageNom.Cells(1, 1).Offset(, compteur + i - 1)
            End With
        Next compteur
        
        ActiveChart.PlotArea.Select
        ActiveChart.HasLegend = True
        ActiveChart.Legend.Select
        Selection.Position = xlBottom
 Next i

Une idée ?!

 

[Catrice]

Re : [Macro] Plusieurs graphs sur une feuille

Bonsoir,

Je crois qu'il faut que tu rajoutes une ligne du type :

MonGraphe.Location Where:=xlLocationAsObject, Name:=MaFeuille.Name

 

[deniooo]

Re : [Macro] Plusieurs graphs sur une feuille

Catrice tu viens juste de me sauver la vie
j'avais un truc dans ce genre là mais qui ne fonctionnait pas, ici c'est trés bien !

Merci beaucoup!

 

[deniooo]

Re : [Macro] Plusieurs graphs sur une feuille

Edited, info trouvé sur l'aide !