Problème génération de graphique
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:
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.
