1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub Macro1(AndFiltre)
Range("A5:A19,B5:B19").Select
Range("B5").Activate
Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("Arrêt machine").Range("A5:B19"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "='Arrêt machine'!R5C3:R19C3"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Arrêt machine"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Code Défaut"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'arrêt"
End With
ActiveChart.HasLegend = False
End Sub |
Partager