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:
Merci d'avance.
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
Partager