Ajout série dans une feuille Graph

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
144test-1.zip (14.07 Ko)

Please Help !!!

Bonsoir,

Ca fonctionne chez moi avec Excel 2010, mais penses à déclarer tes variables

Cdlt

Bonjour Jean-Eric,

effectivement la macro fonctionne, mais mon problème n'est pas là !

Je voudrai faire la même chose, mais en ayant mon graphique sur une feuille à par et non sur la feuille des données ???

J'ai modifier le code de la manière suivante et ça ne fonctionne pas ?

Je vous joint en plus le fichier.

Sub SoftmaMacro()
Dim MaFeuille As Worksheet
'--  Partie du code que j'ai modifier -----------------------------
    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

Comment faire

41test-2.zip (18.21 Ko)

Qui peux m'aider ?

Please Help !

Rechercher des sujets similaires à "ajout serie feuille graph"