graph avec nombres de courbes variable

Version imprimable

03/07/2012, 12h25
revans

graph avec nombres de courbes variable

bonjour,
deja avant j'utiliser excel 2003 et la je ne comprend pas trop bien le systéme de graph
et j'aimerais faire un graph avec un nom variable et un nombre de courbes variable
alors les points se trouve sur les feuilles cylindre1 a cylindre & i
et les point se trouve sur chaque feuille au même endroits, c'est a dire dans la colonne 43 et de la cellule 2 a 719
j'aimerais deja essayer de faire cela avec l'enregistreure de macro mais je comprend pas comment on fait pour selection plusieur serie sur le graph avec excel 2007

Exemple à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Tracage()
Const Nb As Byte = 4                             'nombre de séries
Dim Ch As Chart
Dim i As Byte
 
Application.ScreenUpdating = False
'Ajout d'une feuille graphique
Set Ch = ThisWorkbook.Charts.Add(Before:=ThisWorkbook.Sheets(1))
With Ch
    'Type de graphique
    .ChartType = xlLineMarkers
    'on boucle sur les feuilles et on ajoute les séries
    For i = 1 To Nb
        With .SeriesCollection.NewSeries
            .Values = ThisWorkbook.Worksheets("cylindre" & i).Range("AQ2:AQ719")
            .Name = "cylindre" & i
        End With
    Next i
End With
Set Ch = Nothing
End Sub

03/07/2012, 20h22
revans

j'ai un probléme a cette ligne

Code:

.Values = ThisWorkbook.Worksheets("cylindre" & i).Range("AQ2:AQ719")

il me dit que l'indice n'appartient pas a la selection , mais les feuilles et les cellules sont bien la

Tu devais t'en sortir tout seul en cherchant pour quel i tu n'as de feuille appelée cylindrei
Sinon, autre proposition pour ne pas intervenir au niveau du nombre de feuilles (plus logique)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Tracage()
Dim Sh As Worksheet
Dim Ch As Chart
Dim i As Byte
 
Application.ScreenUpdating = False
'Ajout d'une feuille graphique
Set Ch = ThisWorkbook.Charts.Add(Before:=ThisWorkbook.Sheets(1))
With Ch
    'Type de graphique
    .ChartType = xlLineMarkers
    'on boucle sur les feuilles et on ajoute les séries
    For Each Sh In ThisWorkbook.Worksheets
        If Left(Sh.Name, 8) = "cylindre" Then
            With .SeriesCollection.NewSeries
                .Values = Sh.Range("AQ2:AQ719")
                .Name = Sh.Name
            End With
        End If
    Next Sh
End With
Set Ch = Nothing
End Sub

je prefere la premiere , c'est plus simple pour moi
mais je comprend pas , j'ai toute mes feuilles et mes cellules et j'ai toujours la meme erreur

alors quand j'essaye de le faire avec l'enregistreur , il me selectionne tout et sa me fausse mon truc

bon alors voila j'ai fait comme cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'créations graph For i = 1 To nbcylindre Sheets("cylindre" & i).Select Range("AQ2:AQ719").Select Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("cylindre" & i).Range("AQ2:AQ719"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="cylindre" & i ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False Next i
mais il ne me fait qu'une courbe

bon sinon j'ai fais comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Sheets.Add After:=Sheets("cylindre" & nbcylindre)
Sheets("Feuil6").Name = "graphique"
With Ch
 ActiveSheet.Shapes.AddChart
'Activation du graphique sans le sélectionner
     ActiveSheet.ChartObjects(1).Activate
 
For i = 1 To nbcycle
 With ActiveChar
           .SetSourceData Source:=Worksheets("cylindre" & i).Range("AQ2:AQ719"), PlotBy:=xlRows
           .ChartType = xlLineMarkers
 
        End With
    Next i
End With

mais j'ai un probléme sur cette ligne
.SetSourceData Source:=Worksheets("cylindre" & i).Range("AQ2:AQ719"), PlotBy:=xlRows

05/07/2012, 14h31
mercatog

Peut être il est temps de regarder et d'essayer la réponse #4

mais j'ai bien avancé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sheets.Add After:=Sheets("cylindre" & nbcylindre)
Sheets("Feuil6").Name = "graphique"
With Ch
 ActiveSheet.Shapes.AddChart
'Activation du graphique sans le sélectionner
     ActiveSheet.ChartObjects(1).Activate
  'Type de graphique
    ActiveChart.ChartType = xlLine
    'on boucle sur les feuilles et on ajoute les séries
    For i = 1 To nbcylindre
       ActiveChart.SeriesCollection.NewSeries
               ActiveChart.SetSourceData Source:=Sheets("Cylindre" & i).Range("AQ2:AQ719")
    Next i
End With
Set Ch = Nothing

sauf qu'il ne me fait qu'une courbe et pas celle de toute les feuilles

05/07/2012, 18h07
revans

bon alors j'ai finie tout ce qui reste de ma macro mais il me manque quand meme 3 courbes sur mon graph