Sheets("Résultat").DrawingObjects.Delete
Charts.Add
ActiveChart.ChartType = xlBarStacked100
ActiveChart.SetSourceData Source:=Sheets("Résultat").Range("Q9,Q11,Q13"), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Résultat"
ActiveChart.HasLegend = False
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = False
.Axes(xlCategory).HasMajorGridlines = False
.Axes(xlCategory).HasMinorGridlines = False
.Axes(xlValue).HasMajorGridlines = False
.Axes(xlValue).HasMinorGridlines = False0
End With
ActiveSheet.Shapes(1).ScaleHeight 0.5, msoFalse, msoScaleFromBottomRight
ActiveSheet.Shapes(1).ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.Overlap = 100
.GapWidth = 0
.HasSeriesLines = False
End With
ActiveChart.SeriesCollection(1).Points(1).Select
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(3).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveChart.ApplyDataLabels AutoText:=True
ActiveChart.ChartArea.Font.Size = 11
ActiveSheet.ChartObjects(1).Left = Range("B14").Left
ActiveSheet.ChartObjects(1).Top = Range("B14").Top
ActiveWindow.Visible = False