faire un graph avec données de plusieurs feuilles

[yaya73]

Bonjour,

tout nouveau sur ce forum, je me lance pour ma 1ere question ;-)
voila mon problème, j'ai 3 feuilles :

1 feuille : un tableau avec 5 données X et 5 données Y
2 feuille : un tableau avec 5 données X et 5 données Y

3 feuille :
je souhaiterais faire un graphique avec les données de feuille1 et 2

en gros le graph récupère les données en X sur feuille 1 et 2 et fait la courbe.
idem pour Y
exemple :

Actuellement j'ai cela :
=SERIE(;;'données 1'!$B$2:$H$2;1) => ce qui me donne la courbe de la feuille 1 en X

mais je voudrais que la feuille 2 s'adapte au graphique afin de prolonger la courbe du style
=SERIE(;;'données 1'!$B$2:$H$2;1) + (;;'données 2'!$B$2:$H$2;1)


Mais bien-sur cela ne fonctionne pas
Si qq'un pouvait m'aider, ca serait cooooooooool
merci

 

[PMO2]

Re : faire un graph avec données de plusieurs feuilles

Bonjour,

Pourquoi ne pas rassembler les données X et les données Y des 2 feuilles dans une nouvelle feuille
et construire le graphique à partir des données concaténées ???

Sinon (et pour le fun) :

A LA MAIN
affichez les données source du graphique et modifiez la Série1
Valeurs
={6\6\7\8\5\9\5\16\16\17\18\15\19\15}
Etiquettes des X
={50\-4\-3\-2\-1\-2\-1\-5\-4\-3\0\1\2\3}

EN VBA
copiez le code suivant dans un module standard

Sub graph_pmo()
If TypeName(Selection) <> "ChartArea" Then Exit Sub
Dim X1 As Range
Dim X2 As Range
Dim Y1 As Range
Dim Y2 As Range
Dim C As Range
Dim A$
Dim B$
Dim SC As SeriesCollection
Set X1 = Application.InputBox(prompt:="Indiquez la plage des X1", Title:="Data X1", Type:=8)
Set X2 = Application.InputBox(prompt:="Indiquez la plage des X2", Title:="Data X2", Type:=8)
For Each C In X1
  A$ = A$ & C & ","
Next C
For Each C In X2
  A$ = A$ & C & ","
Next C
A$ = Mid(A$, 1, Len(A$) - 1)
Set Y1 = Application.InputBox(prompt:="Indiquez la plage des Y1", Title:="Data Y1", Type:=8)
Set Y2 = Application.InputBox(prompt:="Indiquez la plage des Y2", Title:="Data Y2", Type:=8)
For Each C In Y1
  B$ = B$ & C & ","
Next C
For Each C In Y2
  B$ = B$ & C & ","
Next C
B$ = Mid(B$, 1, Len(B$) - 1)
On Error Resume Next
Set SC = ActiveChart.SeriesCollection(1)
If Err <> 0 Then
  ActiveChart.SeriesCollection.NewSeries
  Err.Clear
End If
On Error GoTo 0
With ActiveChart.SeriesCollection(1)
  .Values = "={" & A$ & "}"
  .XValues = "={" & B$ & "}"
End With
End Sub

POUR QUE CELA MARCHE
1) sélectionnez le graphique
2) lancez la macro graph_pmo
3) indiquez tour à tour les plages des X et des Y des 2 feuilles

Cordialement.

PMO
Patrick Morange