pb de syntaxe

pb de syntaxe - VB/VBA/VBS - Programmation

Marsh Posté le 04-04-2006 à 10:38:19    

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 :
  1. Charts.Add
  2.     ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
  3.     ActiveChart.SetSourceData Source:=Sheets("Feuil1" ).Range("A3" ), PlotBy:= _
  4.         xlColumns
  5.     For j = 1 To nbch
  6.     a = 6 + (j - 1) * (nbinc + 4)
  7.     b = a + nbinc
  8.     ActiveChart.SeriesCollection.NewSeries
  9.     ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & a & "C3:R" & b & "C3"
  10.     ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R" & a & "C4:R" & b & "C4"
  11.     ActiveChart.SeriesCollection(1).Name = "=""chargement " & j""
  12.     Next j
  13.     ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
  14.     With ActiveChart
  15.         .HasTitle = True
  16.         .ChartTitle.Characters.Text = "déflexion"
  17.         .Axes(xlCategory, xlPrimary).HasTitle = True
  18.         .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "hauteur pieu (m)"
  19.         .Axes(xlValue, xlPrimary).HasTitle = True
  20.         .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "déflexion  (m)"
  21.     End With

Reply

Marsh Posté le 04-04-2006 à 10:38:19   

Reply

Marsh Posté le 04-04-2006 à 11:23:09    

 


ActiveChart.SeriesCollection(1).Name = "=""chargement " & j""

 

Il semble y avoir un problème de guillemets, et je ne vois pas bien l'intérêt du signe "=".
Peut-être que cela marche mieux avec :


ActiveChart.SeriesCollection(1).Name = "chargement " & j

 

 
 

Reply

Marsh Posté le 04-04-2006 à 11:53:28    

effectivement ça marche mieux ....
merci
pour le "=" je sais pas trop ce que c'est je l'avais récupérer dans un autre truc

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed