Discussion :

[gigs]

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

[SfJ5Rpw8]

enlève tes lignes ... sheets(1).select et Sheets(2).select... en fin de macro... elle doivent....
puis quand tu dis que cela ne fonctionne pas .. soit plus clair... ? message d'erreur..

[gigs]

j'ai enlever les deux dernier selection de feuille et l'erreur et la meme :

erreur 1004:
unable to set XValues property of the Series class

[SilkyRoad]

bonsoir


tu peux tester cette adaptation (testé avec Excel2002)
par contre je n'ai pas compris si Feuille2 etait une variable ou le nom de la feuille

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
Dim Adresse As String
Dim Plage As Range, Plage2 As Range
 
Adresse = Sheets(2).Cells(2, NoCol).Address & ":" & Sheets(2).Cells(1 + nbDonne, NoCol).Address
 
Set Plage = _
Sheets("Feuil1").Range(Sheets("Feuil1").Cells(2, NoCol), Sheets("Feuil1").Cells(1 + nbDonne, NoCol))
 
Set Plage2 = _
Sheets("Feuil2").Range(Sheets("Feuil2").Cells(2, NoCol), Sheets("Feuil2").Cells(1 + nbDonne, NoCol))
 
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(Feuille2).Range(Adresse), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=Feuille2
ActiveChart.SeriesCollection(1).XValues = Plage
ActiveChart.SeriesCollection(1).Values = Plage2

bonne soiree
michel

[gigs]

ca marche parfaitement merci bcp.

bonne continuation