Bonjour, Bonjour
Voila l'une de mes macros pour l'obtention d'un graphique.
J'aimerais apporter quelque modification de mise en page.
Changer le nom de la série
Mettre un nom à l'axe des ordonnées
Et aussi savoir comment modifier cette VBA, pour y incorporer un autre graph, pour une comparaison. (Visualiser 2 garphique)
'Graphique Nb Max a/c
Sheets("Feuil1").Select
varNomGraph3 = Cells(1, 22).Value
Charts.add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & t + 4 & "C7:R" & i + 4 & "C7"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R" & t + 4 & "C22:R" & i + 4 & "C" & 22
ActiveChart.SeriesCollection(1).Name = varNomGraph3
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).GapWidth = 0
With ActiveChart
.DepthPercent = 200
.GapDepth = 0
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = varNomGraph3
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Characters.Text = "Temps"
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
On Error Resume Next
.Name = varNomGraph3
.Deselect
On Error GoTo 0
End With
Merci
Voila l'une de mes macros pour l'obtention d'un graphique.
J'aimerais apporter quelque modification de mise en page.
Changer le nom de la série
Mettre un nom à l'axe des ordonnées
Et aussi savoir comment modifier cette VBA, pour y incorporer un autre graph, pour une comparaison. (Visualiser 2 garphique)
'Graphique Nb Max a/c
Sheets("Feuil1").Select
varNomGraph3 = Cells(1, 22).Value
Charts.add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & t + 4 & "C7:R" & i + 4 & "C7"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R" & t + 4 & "C22:R" & i + 4 & "C" & 22
ActiveChart.SeriesCollection(1).Name = varNomGraph3
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).GapWidth = 0
With ActiveChart
.DepthPercent = 200
.GapDepth = 0
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = varNomGraph3
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Characters.Text = "Temps"
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
On Error Resume Next
.Name = varNomGraph3
.Deselect
On Error GoTo 0
End With
Merci