ajout d une série dans un graphe

[tao]

salut le forum ,

je souhaiterai ajouter une serie a un graphe .

En fait j ai fait quelque chose qui ne fonctionne pas pouvez vous m aider!!

For j = 1 To MaPlage.Columns.Count 'Boucle permettant de rendre le numero de colonne de ma serie qua je souhaite ajouter
If MaPlage.Item(1, j).Value = op & cer & pays & "F0" Then
y = j
Exit For
End If
Next j
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(y).Values = "R2Cy: R10y


merci d avance

 

[Popeye]

bonjour

comme ca ca peux marcher mieux je pense


For j = 1 To MaPlage.Columns.Count 'Boucle permettant de rendre le numero de colonne de ma serie qua je souhaite ajouter
If MaPlage.Item(1, j).Value = op & cer & pays & "F0" Then
y = j
Exit For
End If
Next j
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(y).Values = "R2C" & y & ": R10" & y

 

[Marsoin]

Salut tao

J'aurais écrit
ActiveChart.SeriesCollection(y).Values = "=R2C" & y & ":R10C" & y
et je pense que ca marche
A++

 

[tao]

merci mais ca na marche pas , le message d erreur est : impossible de determiner la valeur de la serie.

 

[Marsoin]

Salut Tao

Apres verification effectivement, ca ne va pas.

ce qui suit va beaucoup mieux

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(y).Select
ActiveChart.SeriesCollection(y).Values = "=Feuil1!R1C" & y & ":R5C" & y

 

[tao]

désolé marsoin mais ca na marche pas non plus.

ce que vb n aime pas c est le activechart.seriescollection(y).select

c est surement parce que cette serie la ne fait pas encore partie du graphe!!!


merci de m aider quand meme.

 

[Dorade]

Est-ce que y est la serie suivante?
J'ai fait mon test avec y=3 et un graphe ayantd eux series.

 

[tao]

salut dorade ,

non y n est pas la serie suivante ici y est = a 29.Mais dans d autres cas y sera different.

Chez moi ca na marche pas!!

merci

 

[Popeye]

ATTENTION BIDOUILLAGE EXTREME

For n = 1 To 10
On Error GoTo Err
i = n
ActiveChart.SeriesCollection (n)

Next
'exit sub
Err:
ActiveChart.SeriesCollection.NewSeries
activechart.seriescollection(i).XValues = "=resultats!R2C1:R102C1"
'etc...


en fait je parcours les series
quand j'arrive a une serie qui n'existe pas ya erreur donc je gere l'erreur pour savoir son numero
et hop tu la crés et tu sais le numero qu'elle aura
a la place sur for n = 1 to 10 tu peux mettre une boucle while mais c risqué ca peut tout faire planter

voila

 

[Dorade]

y = ActiveChart.SeriesCollection().Count + 1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(y).Values = "R2C" & j & ": R10" & j

 

[Popeye]

oups j'avais pas vu la propriété count
hihi

 

[tao]

en fait pour le y , je l aideja je le recherche auparavant.

ca na marche que dans un cas , c est quand mon y est = a 2 sinon ca couille.

j en ai marre.

pas d autres idées???

 

[sandra]

mais nin , en fait il faut faire :

ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = "=Feuil1!R2C" & y & ":R10C" & y
ActiveChart.SeriesCollection(2).Name = "=Feuil1!R1C" & y


et la ca marchera