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