Discussion :

[Tomme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Regarde à Union, dans l'aide.

Pour la syntaxe, et pour le principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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