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

Robmachine · 5 Janvier 2012

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 · 5 Janvier 2012

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

Bonjour

A tester

Code:

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

CBernardT · 5 Janvier 2012

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 · 5 Janvier 2012

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

Merci enormément !!!

Ca marche Nikel

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

Robmachine

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

CBernardT

XLDnaute Barbatruc

Robmachine

XLDnaute Nouveau

Discussions similaires