bonjour,

je souhaite faire un camembert. J'ai ma plage de données qui contient 4 colonnes, et je voudrais que pour chaque colonne obtenir un camembert.
Cependant, le camembert se fige sur la première colonne et je ne vois pas comment lui dire d'aller a la suivante.
Voilà mon code:
'Graphique
Dim maplage As Range
Set maplage = Worksheets("feuil3").Range(Cells(1, 7), Cells(1 + nbr_reg, 7 + nbr_remb))


'camembert

Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData maplage, xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
'ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=True, AutoText:=True, ShowCategoryName:=True, ShowPercentage:=True, ShowBubbleSize:=True
.ChartTitle.Characters.Text = ""
End With

Merci d'avance