Superposition de courbes sur un graphique

Superposition de courbes sur un graphique - VB/VBA/VBS - Programmation

Marsh Posté le 31-05-2012 à 14:46:15    

Bonjour,
 
j'essaye de surperposer sur 1 seul graphe plusieurs courbes issues chacune d'une sheet différente.
J'ai voulu procéder de la manière suivante: créer un graphique sur une sheet en particulier, parcourir l'ensemble des sheet contenant les données et créer les courbes a insérer dans le graphique.
 
J'ai tenté ce bout de code qui ne semble pas correct mais je ne sais pas pourquoi exactement..
 

Code :
  1. Sub graphe()
  2. Sheets("FILES" ).Select
  4. n = Cells(3, 1).Value
  6. For lgn = 3 To n + 3
  8. leon = Cells(lgn, 4).Value
  10. Set objChart = ThisWorkbook.Charts.Add
  12. objChart.ChartType = xlXYScatterSmoothNoMarkers
  14. objChart.Name = "graph1"
  16. Sheets(leon).Select
  18. Range("E4" ).Select
  20. Do While Not (IsEmpty(ActiveCell))
  22.     Line1 = Line1 + 1
  24.     Selection.Offset(1, 0).Select
  26. Loop
  29.     graph1.SetSourceData Source:=Range("$E$1:$F" & Line1 + 3)
  31.     Next lgn
  33. End Sub

Reply

Marsh Posté le 31-05-2012 à 14:46:15   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed