1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub camembert()
'
' camembert Macro
' Macro enregistrée le 20/06/2008 par FNMF
'
x = Sheets("Résultats").Cells(5, 24).Value
y = Sheets("Résultats").Cells(5, 25).Value
z = Sheets("Résultats").Cells(5, 26).Value
Dim Plage As Range
Set Plage = Sheets("base").Range(Cells(x, y), Cells(x, z))
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Plage, _
PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=base!R1056C5:R1056C24"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Résultats"
ActiveChart.HasLegend = False
End Sub |
Partager