bonjour à tous,
je souhaiterai compléter mon code afin de réaliser un graphique complet. En effet, je souhaite que les codes de la première colonne soit le nom de mes séries.
voici mon code :
Sub GraphO()
'création d'un gaphique
Dim c As ChartObject
Set c = Feuil7.ChartObjects.Add(Range("B14").Left, Range("B14").Top, 550, 350)
With c.Chart
.ChartType = xlColumnStacked
.SetSourceData Source:=Feuil7.Range("B2:L8"), PlotBy:=xlRows
End With
End Sub
merci d'avance
je souhaiterai compléter mon code afin de réaliser un graphique complet. En effet, je souhaite que les codes de la première colonne soit le nom de mes séries.
voici mon code :
Sub GraphO()
'création d'un gaphique
Dim c As ChartObject
Set c = Feuil7.ChartObjects.Add(Range("B14").Left, Range("B14").Top, 550, 350)
With c.Chart
.ChartType = xlColumnStacked
.SetSourceData Source:=Feuil7.Range("B2:L8"), PlotBy:=xlRows
End With
End Sub
merci d'avance
