Discussion :

[revans]

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

[mercatog]

Exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[revans]

j'ai un probléme a cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[revans]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[revans]

bon sinon j'ai fais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

[revans]

mais j'ai bien avancé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[revans]

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