Graphique à partir d'un tableau
Bonjour à tous,
Je cherche à créer un graphique a partir de données d'un tableau mais j'ai un soucis concernant les abcisses:
avec ce code, seul janv-15 apparait en abscisse mais pas févr-15.
Comment faire pour créer un graphique en batons superposés via un tableau?
je souhaite faire un graphique comme cela car j'ai besoin d'une multitude de graphique différents et les éléments ne sont pas forcément disponibles dans dans la plage pour passer sur du manuel. Ca sera beaucoup plus simple et rapide de fournir les séries directement via un tableau.
Merci d'avance pour votre aide.
Bonne journée à tous
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
| Sub creationGraphiqueParTableau()
Dim Tableau() As Variant, Tableau2() As Variant, Tableau3() As Variant
With ThisWorkbook.Worksheets("Export")
x = Application.CountIf(.Range("AA1:AA20"), "CSI")
x1 = Application.CountIf(.Range("AA1:AA20"), "GCS")
Tableau() = Array("janv-15", "févr-15")
Tableau2() = Array(x, x1)
Tableau3() = Array("GCS", "CSI")
End With
Charts.Add
ActiveChart.Location _
Where:=xlLocationAsObject, Name:="Test"
With ActiveChart
.ChartType = xlColumnStacked
For i = 1 To 2
.SeriesCollection.NewSeries
.SeriesCollection(i).Values = Tableau2(i)
.SeriesCollection(i).Name = Tableau3(i)
Next i
.SeriesCollection(1).XValues = Tableau
End With
End Sub |
