je souhaiterais réaliser un graphique en vba à partir du tableau ci joint. Je vous met le graph attendue avec.
Le nombre de lignes est variable d'où la nécessité du vba.
Voici mon code actuel (qui ne marche pas):
Sub GraphQ()
'
' création et remplissage d'un graphique
'
'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Range("A18")
ActiveChart.SeriesCollection(1).XValues = "='Résultats'!$B$1:$G$1"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Résultats'!$A$2"
ActiveChart.SeriesCollection(1).Values = "='Résultats'!$B$2:$G$2"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Résultats'!$A$3"
ActiveChart.SeriesCollection(2).Values = "='Résultats'!$B$3:$G$3"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "='Résultats'!$A$4"
ActiveChart.SeriesCollection(3).Values = "='Résultats'!$B$4:$G$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "='Résultats'!$A$5"
ActiveChart.SeriesCollection(4).Values = "='Résultats'!$B$5:$P$5"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).Name = "='Résultats'!$A$6"
ActiveChart.SeriesCollection(5).Values = "='Résultats'!$B$6:$P$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).Name = "='Résultats'!$A$7"
ActiveChart.SeriesCollection(6).Values = "='Résultats'!$B$7:$P$7"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).Name = "='Résultats'!$A$8"
ActiveChart.SeriesCollection(7).Values = "='Résultats'!$B$8:$P$8"
End Sub
Merci d'avance
Le nombre de lignes est variable d'où la nécessité du vba.
Voici mon code actuel (qui ne marche pas):
Sub GraphQ()
'
' création et remplissage d'un graphique
'
'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Range("A18")
ActiveChart.SeriesCollection(1).XValues = "='Résultats'!$B$1:$G$1"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Résultats'!$A$2"
ActiveChart.SeriesCollection(1).Values = "='Résultats'!$B$2:$G$2"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Résultats'!$A$3"
ActiveChart.SeriesCollection(2).Values = "='Résultats'!$B$3:$G$3"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "='Résultats'!$A$4"
ActiveChart.SeriesCollection(3).Values = "='Résultats'!$B$4:$G$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "='Résultats'!$A$5"
ActiveChart.SeriesCollection(4).Values = "='Résultats'!$B$5:$P$5"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).Name = "='Résultats'!$A$6"
ActiveChart.SeriesCollection(5).Values = "='Résultats'!$B$6:$P$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).Name = "='Résultats'!$A$7"
ActiveChart.SeriesCollection(6).Values = "='Résultats'!$B$7:$P$7"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).Name = "='Résultats'!$A$8"
ActiveChart.SeriesCollection(7).Values = "='Résultats'!$B$8:$P$8"
End Sub
Merci d'avance