Bonjour,
Je cherche depuis longtemps comment ajouter une série de données en VBA à un graph déja existant !!!
En cherchant sur le net j'ai trouvé cette petite Macro très simple et bien écrite répondant à 95% de mon problème (voir fichier joint).
La seul chose qui me gène est que le Graphique se trouve sur la feuille "Données1-2" et non sur une feuille "Graph1" séparée et je n'arrive pas à adapter cette macro dans ce cas
J'ai modifié la ligne suivante mais ça ne fonctionne pas
ActiveSheet.ChartObjects("Graph1").Activate
Voici le code complet :
Sub SoftmaMacro()
ActiveSheet.ChartObjects("Graphique 1").Activate
Set c = Range("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