tcd variable

[turban]

Bonjour,
je voudrais savoir comment passer ma variable car je n'arrive pas a trouver la syntaxe pour que mon graphique à données variable se mette en forme tout seul.


Sub Macro6()


Dim a As Integer

a = 7

Sheets("Feuil4").Select
Do While Range("IP" & a) <> "0" And Range("IN" & a) <> 0
a = a + 1
Loop
a = a - 1
Sheets("Analyse").Select
ActiveSheet.ChartObjects("Graphique 138").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).XValues = "=Feuil4!R7C248:"""""Ra"""""C248"

mon problème se situe ici VBA ne reconnait pas la syntaxe Ra ou R & a

"=Feuil4!R7C248:R21C248"

idem pour dessous

ActiveChart.SeriesCollection(1).Values = "=Feuil4!R7C250:R21C250"
ActiveChart.SeriesCollection(1).Name = "=Feuil4!R5C250"
ActiveChart.SeriesCollection(2).XValues = "=Feuil4!R7C248:R21C248"
ActiveChart.SeriesCollection(2).Values = "=Feuil4!R7C251:R21C251"
ActiveChart.SeriesCollection(2).Name = "=Feuil4!R5C251"
ActiveChart.SeriesCollection(3).Values = "=Feuil4!R7C249:R21C249"
ActiveChart.SeriesCollection(3).Name = "=Feuil4!R5C249"
ActiveWindow.Visible = False

End Sub


Merci d'avance

 

[dekerg]

as tu essayé comme cela ?

ActiveChart.SeriesCollection(1).XValues = "=Feuil4!R7C248:R" & a & "C248"