Discussion :

[juju05]

Je renseigne plusieurs feuilles d'un même classeur et, à partir des données situées en colonne A et B, je souhaite faire une courbe sur la même feuille.

En abscisses, je souhaite avoir la colonne A et en ordonnées, la colonne B.

J'ai codé cela mais je n'ai aucun graphique en sortie:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 ' Objet pour dessiner un graphique par département
   Dim Grf As ChartObject
 
   ' Objet pour prendre en compte la feuille
   Dim Sh As Worksheet
 
   ' Emplacement pour le graphe
   Dim Emplacement As Range
 
Set Sh = Sheets(deplu)
 
                  ' Suppression de tous les graphiques
                  For Each Grf In Sh.ChartObjects
                      Grf.Delete
                  Next Grf
 
                  ' Création du graphique
                  Set Emplacement = Sh.Range("E6:L28")
 
                  Set Grf = Sh.ChartObjects.Add(Emplacement.Left, Emplacement.Top, Emplacement.Width, Emplacement.Height)
 
                  With Grf.Chart
                        ' .SetSourceData Source:=Range("A1:B" & lig)
                        .ChartType = xlLineStacked
                        .SeriesCollection.NewSeries
 
                        With .SeriesCollection(1)
                            .Values = Sh.Range("B1:B" & lig)
                            .XValues = Sh.Range("A1:A" & lig)
                        End With
                  End With
 
                  Set Grf = Nothing
                  Set Sh = Nothing
                  Set Emplacement = Nothing

Merci d'avance.

[kiki29]

Salut, un oubli ?

Code :

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

1
2
3
Dim lig As Long
....
lig = Range("A" & Rows.Count).End(xlUp).Row

Sans oublier ceci ?

Code :

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

Sheets(deplu)

[juju05]

Ces variables sont renseignées auparavant et ont les bonnes valeurs.

Merci quand même !

[kiki29]

Re, surement pas car ici si tu rajoutes ce qui est donné ci-dessus cela fonctionne.

[juju05]

Effectivement, j'avais un problème sur la valeur de la variable lig.

Merci beaucoup !