Modification de graphique

baptbapt

XLDnaute Occasionnel
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
 

baptbapt

XLDnaute Occasionnel
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
 

porcinet82

XLDnaute Barbatruc
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.

@+
 

baptbapt

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
1
Affichages
270
Réponses
0
Affichages
221

Statistiques des forums

Discussions
313 281
Messages
2 096 785
Membres
106 748
dernier inscrit
Abdel93