Finrod3 Intégrale de 2 à 3 de x.dx | 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 :
- Sub graphe()
- Sheets("FILES" ).Select
- n = Cells(3, 1).Value
- For lgn = 3 To n + 3
- leon = Cells(lgn, 4).Value
- Set objChart = ThisWorkbook.Charts.Add
- objChart.ChartType = xlXYScatterSmoothNoMarkers
- objChart.Name = "graph1"
- Sheets(leon).Select
- Range("E4" ).Select
- Do While Not (IsEmpty(ActiveCell))
- Line1 = Line1 + 1
- Selection.Offset(1, 0).Select
- Loop
- graph1.SetSourceData Source:=Range("$E$1:$F" & Line1 + 3)
- Next lgn
- End Sub
|
|