Besoin d'aide macro !!

[Sang1]

Bon jour a tous !!

Je cherche a adapter cette formule afin que mon graphique sélectionne les données jusqu'à la dernière cellule ou il y a une valeure.
En gros j'ai des données ayant un nombre variable et qui sont sur une ligne. Voici ce qui doit ètre adapté :

Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Courbes").Range("A1")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Conso.!R2C14:R2C31"
ActiveChart.SeriesCollection(1).Values = "=Conso.!R3C14:R3C31"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Courbes"
With ActiveChart


Merci beaucoup pour votre aide.

Crdlt,

S@nG1

 

[Catrice]

Re : Besoin d'aide macro !!

Bonjour,

A tester :

Sub test()
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Courbes").Range("A1")
ActiveChart.SeriesCollection.NewSeries
DerCol = Sheets("Conso").Range("IV2").End(xlToLeft).Column
ActiveChart.SeriesCollection(1).XValues = "=Conso!R2C14:R2C" & DerCol
ActiveChart.SeriesCollection(1).Values = "=Conso!R3C14:R3C" & DerCol
ActiveChart.Location Where:=xlLocationAsObject, Name:="Courbes"
End Sub

voir le fichier joint

 

[thilam]

Re : Besoin d'aide macro !!

Bonjour,
Une solution serait d'utiliser une formule du style
="Conso.!R3C14:R3C"&nbval(r3c14:R3C25)-1
dans une cellule de ta feuille que tu appelerais "plageval" par ex.

Le résultat sera la plage qui t'intéresse (ex: Conso.!R3C14:R3C18)

tu peux ensuite modifier ta ligne
ActiveChart.SeriesCollection(1).XValues = "=Conso.!R2C14:R2C31"
qui devient
ActiveChart.SeriesCollection(1).XValues = "=" & range("plageval").value

Ca te parle?
Th

 

[Sang1]

Re : Besoin d'aide macro !!

Merci bien sa fonctionne.

++ Sang1