[VBA-E] graph a partir de donnees sur 2 feuille differente

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:

---

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:

---

ActiveChart.SeriesCollection(1).XValues = Plage

---

car sinon le code fonctionne tres bien lorsque je n'utilise qu'une feuille

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..

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

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:

---

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

ca marche parfaitement merci bcp.

bonne continuation