Ours masqué
XLDnaute Junior
Bonjour Forum...
J'ai une base de données avec plusieurs infos par personne.
Je voudrais créer un graphique de comparaison des valeurs en allant chercher pour chaque série, une valeur, au même endroit dans chaque feuille, sur chacune des feuilles de données.
Pourriez vous m'aider à trouver la syntaxe correcte pour alléer sur les différentes feuilles ? Merci beaucoup. Bonne après midi...
J'ai une base de données avec plusieurs infos par personne.
Je voudrais créer un graphique de comparaison des valeurs en allant chercher pour chaque série, une valeur, au même endroit dans chaque feuille, sur chacune des feuilles de données.
Pourriez vous m'aider à trouver la syntaxe correcte pour alléer sur les différentes feuilles ? Merci beaucoup. Bonne après midi...
Code:
Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=AK12345E!R1C1;AK58087C!R1C1'
ActiveChart.SeriesCollection(1).Values = '=AK12345E!R17C20;AK58087C!R17C20'
ActiveChart.SeriesCollection(1).Name = '=Témoin!R2C20'
ActiveChart.SeriesCollection(2).Values = '=AK12345E!R19C12;AK58087C!R19C12'
ActiveChart.SeriesCollection(2).Name = '=Témoin!R3C11'
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:='Comparatif HdV'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Activité aéronautique'
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlSeries)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.WallsAndGridlines2D = False
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.HasDataTable = False