Modification de graphique

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

Re : Modification de graphique

Salut baptbapt,

Regarde du coté de tes codes concernant les graphes donc l'axe des abscisses n'est pas bon. Si tu vas voir dans les données sources de ces graphes, tu verras que ceux-ci ne possèdent pas de données pour l'axe des abscisses, donc il doit y avoir une erreur dans tes codes.

@+

Re : Modification de graphique

effectivement, il n'y avait rien

mais quand je met

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("G5:G" & i + 4, "X5:X" & i + 4), _
PlotBy:=xlColumns

il me met toute les courbes de G a X, c'est un peu le ... résultat.
Dure dure de déchiffrer

Re : Modification de graphique

Autant pour moi, petite erreur de ", léger décalage et résultat totalement faux

quel drame

sinon, pour la mise en couleur selon valeur au sein d'un graphe
vert si <6
jaune si <10
rouge si >=10

merci