Re : Modification de graphique
Bon visualiser 2 graphiques, j'ai réussi
par contre mon axe des abscisses ne me donne pas les bonne valeurs, il devrait etre en heure, et je n'est que des nombres
et j'aimerai aussi ajouter a mon programme des données pour déterminer une plage de visualisation du graphique, de la valeur t, à la valeur i
j'ai réussi a mettre i et t pour les valeurs que je visualise, mais pas pour la donnée commune en abscisse, sur mes autre graph simple elle se visualise par la formule suivante
' ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & t + 4 & "C7:R" & i + 4 & "C7"
mais voila, pour les graph double, je n'arrive pas a la remmetre
donc le problème doit venir de ceci
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("G5:G" & i + 4), _
PlotBy:=xlColumns
Mais ne sait comment le modifier
'Comparaison between Nb Max a/c and the average of Nb Max (Step 1 min)
Charts.add
ActiveChart.ChartType = xl3DColumn
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("G5:G" & i + 4), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""Average Nb Max a/c"""
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R" & t + 4 & "C24:R" & i + 4 & "C" & 24
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = "=Feuil1!R" & t + 4 & "C22:R" & i + 4 & "C" & 22
ActiveChart.SeriesCollection(2).Name = "=""Nb Max a/c"""
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Comparaison between Nb Max a/c and the Average of Nb Max (Step 1 min)"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Characters.Text = "Time"
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Characters.Text = "Number Max of a/c"
On Error Resume Next
.Name = varNomGraph3
.Deselect
On Error GoTo 0
End With
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).GapWidth = 0
With ActiveChart
.DepthPercent = 200
.GapDepth = 0
End With
ActiveChart.Walls.Select