Besoin d'aide pour changer le nom des séries d'un graphique^^

[taupivin]

Bonjour à tous,

Je souhaiterai renommer le nom de mes séries par la valeur des codes de la 1ère colonne de mon tableau ci-joint.
J'ai essayer le code suivant mais j'ai une erreur "argument nommé introuvable" au niveau de la ligne en rouge.
Quelqu'un peut-il m'aider?

Voici mon code actuel :

Public c As ChartObject
Sub GraphS()
'création d'un gaphique lorsque la taille de la séquence est de 9 jours

Set c = Feuil7.ChartObjects.Add(Range("B14").Left, Range("B14").Top, 550, 350)

With c.Chart
.ChartType = xlColumnStacked
.SetSourceData Source:=Feuil7.Range("B2:G8"), PlotBy:=xlRows
.SeriesCollection Name:=Feuil7.Range("A2:A8")
End With

End Sub

Merci d'avance

 

[Bassist]

Re : Besoin d'aide pour changer le nom des séries d'un graphique^^

Bonjour,

tu trouveras une solution en pièce jointe en espérant que sa répond à ton besoin ?

Il te suffit de cliquer sur le bouton et la macro qui y est associé s'occupe du reste!

Tu peux faire un teste en changeant les nom de ta colonne A normalement sa fonctionne bien!

Par contre tu seras obligé de cliquer sur le bouton à chaque fois que tu voudras mettre à jours les étiquettes, mais bon y a pire ;-)

Cordialement,
Bassist.

 

[kjin]

Re : Besoin d'aide pour changer le nom des séries d'un graphique^^

Bonjour,

Sub GraphS()
Set c = Feuil7.ChartObjects.Add(Range("B14").Left, Range("B14").Top, 550, 350)
With c.Chart
    .SetSourceData Source:=Feuil7.Range("B2:G8"), PlotBy:=xlRows
    .ChartType = xlColumnStacked
    For i = 1 To .SeriesCollection.Count
       .SeriesCollection(i).Name = Feuil7.Range("A" & i + 1)
    Next
End With
End Sub

A+
kjin

 

[kjin]

Re : Besoin d'aide pour changer le nom des séries d'un graphique^^

Bonjour le fil
@taupivin : Tu multiplies les discussions sur un même sujet et tu ne daignes pas prendre en considération les réponses qui te sont faites ICI , ICI , ICI ...!
Même si les solutions proposées ne te satisfont pas, la moindre des correction serait de le faire savoir
A bon entendeur...
kjin

 

[taupivin]

Re : Besoin d'aide pour changer le nom des séries d'un graphique^^

Slt kjin,

Désolé pour la connerie sa se reproduira plus et merci pour le code

a+