elgobi | Bonjour,
voici un bout de mon code: je souhaite créer un graphique à partir d'un nombre de séries qui peut varier (nbch) et pour lesquelles le nombre de lignes peut varier aussi (nbinc)
je souhaiterais que l'indice j apparaisse dans le nom de la série mais ma syntaxe ne passe pas (cf ligne 11 du code joint)
si quelqu'un pouvait m'aider
merci d'avance
Code :
- Charts.Add
- ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
- ActiveChart.SetSourceData Source:=Sheets("Feuil1" ).Range("A3" ), PlotBy:= _
- xlColumns
- For j = 1 To nbch
- a = 6 + (j - 1) * (nbinc + 4)
- b = a + nbinc
- ActiveChart.SeriesCollection.NewSeries
- ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & a & "C3:R" & b & "C3"
- ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & a & "C4:R" & b & "C4"
- ActiveChart.SeriesCollection(1).Name = "=""chargement " & j""
- Next j
- ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
- With ActiveChart
- .HasTitle = True
- .ChartTitle.Characters.Text = "déflexion"
- .Axes(xlCategory, xlPrimary).HasTitle = True
- .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "hauteur pieu (m)"
- .Axes(xlValue, xlPrimary).HasTitle = True
- .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "déflexion (m)"
- End With
|
|