Bonjour,
je me permet de réouvrir la discussion de JayJay2050 sur le lien suivant :
https://www.excel-downloads.com/threads/creation-graphique-automatique-vba-resolu.155375/
car les messages de ce post mon beaucoup aidé dans ma macro.
J'ai juste un petit problème :
Dans le code de "Softmama" fichier "Test1.xl"s la macro permet d'ajouter des séries supplémentaires dans le graphique se trouvant sur la feuille "Données1-2".
Je voudrai que le Graphique soit dans une feuille indépendante nommée "Graph1", voila le code que j'ai tapé qui ne fonctionne pas 😕
je me permet de réouvrir la discussion de JayJay2050 sur le lien suivant :
https://www.excel-downloads.com/threads/creation-graphique-automatique-vba-resolu.155375/
car les messages de ce post mon beaucoup aidé dans ma macro.
J'ai juste un petit problème :
Dans le code de "Softmama" fichier "Test1.xl"s la macro permet d'ajouter des séries supplémentaires dans le graphique se trouvant sur la feuille "Données1-2".
Je voudrai que le Graphique soit dans une feuille indépendante nommée "Graph1", voila le code que j'ai tapé qui ne fonctionne pas 😕
Code:
Sub SoftmaMacro()
'-- Partie du code que j'ai modifier -----------------------------
Dim MaFeuille As Worksheet
MaFeuille.ChartObjects("Graph1").Activate
Set c = Range("Données1-2!D1")
'-----------------------------------------------------------------------
Do While c <> ""
With ActiveChart
.SeriesCollection.NewSeries
With .SeriesCollection(.SeriesCollection.Count)
.Name = c 'Nom de la série
.XValues = Range(c.Offset(2, 0), c.End(xlDown))
.Values = Range(c.Offset(2, 1), c.Offset(2, 1).End(xlDown))
End With
End With
Set c = c.Offset(0, 3)
Loop
End Sub