1 pièce(s) jointe(s)
Histogramme : modifier l'étiquette de l'axe horizontal en VBA
Bonjour à tous.
Je trouve normalement de quoi faire ma sauce sur ce forum ou sur google. Mais cette fois, non. Je m'en remet donc à vous pour m'aider.
J'ai deux tableaux "virtuels" qui constituent les deux séries d'un histogramme. Jusque là, tout va bien.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Set mychart = Wsh.Sheets("Analyse").ChartObjects("graphique 2")
With mychart.Chart
.ChartType = xlColumnStacked
With .SeriesCollection(1)
.Name = "1"
.Values = TabX()
End With
With .SeriesCollection(2)
.Name = "2"
.Values = TabY()
End With
End With |
Je voudrais maintenant avoir la possibilité de modifier l'étiquette de l'axe horizontal, avec des catégories et des sous-catégories. Voir l'exemple ci dessous.
Pièce jointe 160748
Et pour ça, je cale. Malheureusement, l'enregistreur de macro ne me renseigne pas plus la dessus. J'ai toujours la solution de retranscrire mon tableau virtuel dans le tableur excel, de remplir des cases avec les catégories et les sous catégories, puis d'utiliser :
Code:
.SetSourceData Source:=Sheets("Analyse").Range("blabla")
Mais c'est une solution bricolo, et si j'utilise un tableau "virtuel", ce n'est pas pour le retranscrire en tableur avant de pouvoir l'utiliser.
D’où ma question, est ce possible ? Et si non, est ce possible de ne retranscrire dans le tableur que l'étiquette des axes (faire quelque chose comme "Source = Range("blabla") + tabX() + tabY() ")
Cdt, Fabien.
