Bonjour je tente de faire un graph a partir de donne sur deux feuilles differentes, malheureusement (comme vous vous en doutez) cela ne fonctionne pas. Voila le code que j'utilise:

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
 
    Sheets(2).Select
    Adresse = Cells(2, NoCol).Address & ":" & Cells(1 + nbdonne, NoCol).Address
 
    Plage = "=Feuille1!" & Cells(2, NoCol).Address(ReferenceStyle:=xlR1C1) & ":" & Cells(1 + nbdonne, NoCol).Address(ReferenceStyle:=xlR1C1)
    Plage2 = "=Feuille2!" & Cells(2, NoCol).Address(ReferenceStyle:=xlR1C1) & ":" & Cells(1 + nbdonne, NoCol).Address(ReferenceStyle:=xlR1C1)
 
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Sheets(Feuille2).Range(Adresse), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=Feuille2
    Sheets(1).Select
    ActiveChart.SeriesCollection(1).XValues = Plage
    Sheets(2).Select
    ActiveChart.SeriesCollection(1).Values = Plage2
en fait ca, mer..., coince au niveau de la ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveChart.SeriesCollection(1).XValues = Plage
car sinon le code fonctionne tres bien lorsque je n'utilise qu'une feuille