création d'une série via une macro

[Robmachine]

Voici un code VBA qui fonctionne sur excel:

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Reuters'!$C$6:$C$511"
ActiveChart.SeriesCollection(1).Values = "='Reuters'!$AP$6:$AP$511"

A la place du 511 ici en rouge, j'aimerais que la serie les .Xvalues et .Values de ma serie s'arette à la valeur k (valeur qui a été prédefini precedemment dans mon code)

Merci d'avance pour vos réponses.

 

[pierrejean]

Re : création d'une série via une macro

Bonjour

A tester

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Reuters'!$C$6:$C$" & k
ActiveChart.SeriesCollection(1).Values = "='Reuters'!$AP$6:$AP$" & k

 

[CBernardT]

Re : création d'une série via une macro

Bonjour Robmachine,

Edit : Salut pierrejean, cela faisait un moment que nous ne nous étions pas téléscoppé


Sans extrait de ton classeur, cela peut avoir la syntaxe suivante :

Dim DerLigne As Integer
Derligne = Sheets("Reuters").Range("C10000").End(xlUp).Row
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Reuters'!$C$6:$C$" & DerLigne
ActiveChart.SeriesCollection(1).Values = "='Reuters'!$AP$6:$AP$" & DerLigne

 

[Robmachine]

Re : création d'une série via une macro

Merci enormément !!!

Ca marche Nikel