T
turban
Guest
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
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