Range de Range, pour un tableau [Facile]

Bonjour,

j'essaye de créer un tableau contenant 3 série de donner, je sais faire pour une série, mais je n'arrive pas à remplir le "SetSourceData" pour plusieurs séries :

Code:

---

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

Set PlageX = Sheets("Resultats").Range("B1:B" & _ Sheets("Resultats").Range("B65536").End(xlUp).Row) Set PlageY2 = Sheets("Resultats").Range("D1:D" & _ Sheets("Resultats").Range("D65536").End(xlUp).Row) Set PlageY3 = Sheets("Resultats").Range("F1:F" & _ Sheets("Resultats").Range("F65536").End(xlUp).Row) Set PlageY4 = Sheets("Resultats").Range("O1:O" & _ Sheets("Resultats").Range("O65536").End(xlUp).Row) Charts.Add ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("PlageY2,PlageY3,PlageY4"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(1).XValues = PlageX ActiveChart.SeriesCollection(2).XValues = PlageX ActiveChart.SeriesCollection(3).XValues = PlageX ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"

---

je sais que le problème dans la partie en Gras mais je sais pas comment le résoudre !

Les PlageY1, PlageY2, ... sont dimentionées comme Range bien sûr

Merci d'avance

Regarde à Union, dans l'aide.

Pour la syntaxe, et pour le principe :

Code:

---

1 2 3

Dim LaPlage as range Set LaPlage = Application.Union(Range("Range1"), Range("Range2")) For each Cell in LaPlage

---