Graphique et Selection

Bonjour,

je souhaite réaliser une boucle afin de faire des graphiques automatiquement
le probleme est sur l'ordonne des données,
les variable de temps sont en colonne 1 reste toujours en abscisse
je souhaite decaller mon graphique sur les colonnes , ma selection ne fonctionne pas , elle regroupe toute les colonnes en meme temps.

en faite il faudrait que je realise ceux la sur la boucle

Code:

---

ActiveChart.SetSourceData Source:=Sheets(sNomOnglet).Range("A1:A32,Q1:Q32"), PlotBy:=xlColumns

---

j'ai essaye cela mais cela sélectionne toutes les colonne de 1 a 3

je ne comprend pas?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

While Worksheets(sNomOnglet).Cells(1, i).Value <> "" sNomCompter = Worksheets(sNomOnglet).Cells(1, i).Value 'Addittionne Graph   Set rData1 = Range(Sheets(sNomOnglet).Cells(1, 1), Sheets(sNomOnglet).Cells(Ligne, 1)) Set rData2 = Range(Sheets(sNomOnglet).Cells(i, 1), Sheets(sNomOnglet).Cells(Ligne, i)) Set rData = Union(rData1, rData2) Charts.Add   With ActiveChart .ChartType = xlLine .SetSourceData Source:=Sheets(sNomOnglet).Range(rData1, rData2), PlotBy:=xlColumns .Location Where:=xlLocationAsNewSheet, Name:=sNomCompter & " " & sMoisOnglet .HasTitle = True .ChartTitle.Characters.Text = "Compteurs " & sNomCompter & " " & sMoisOnglet .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With i = i + 1     Worksheets(sNomOnglet).Select Wend

---

variable "ligne" est la derniere ligne du tableau