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.