Discussion :

[_Val_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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.

[_Val_]

Personne n'a la solution ? J'ai actuellement implémenté la solution bis, mais elle a le mérite de ralentir énormément l’exécution.