Histogrammes accolés

Bonjour

Je souhaiterai créer un graphique à partir d'une macro VBA sous forme d'histogrammes (2 séries).

Ce graphique aurait 2 axes en ordonné (1 axe pour 1 série).

Je souhaiterai que pour un même abscisse, 2 histogrammes soient présent.

Le problème, c'est qu'avec mon code actuel les histogrammes s'empilent et ne se mettent pas côte a côte.

Voici mon code actuel :

Public Sub CreationGraphe1()

Dim MonGraphe As Chart, MaPlage As Range

Set MaPlage = CalculGraphe.Range("A16:C21")

Set MonGraphe = Thisworkbook.Charts.Add

MonGraphe.ChartType = xlColumnStacked

MonGraphe.SetSourceData MaPlage, xlColumns

With MonGraphe.SeriesCollection(2)

.ChartType = xlColumnStacked

.AxisGroup = 2

MarkerSize = 10

With .Border

.Weight = xlMedium

.LineStyle = xlAutomatic

.ColorIndex = 4

End With

End With

End Sub

Sachant que la plage de cellules A16 : C21 contient pour la colonne A les valeurs de l'axe des abscisses, pour la colonne B les valeurs de l'axe des ordonnés de gauche, et la colonne C les valeurs de l'axe des ordonnés à droite

Merci d'avance.

bonjour

à essayer xlcolumnClustered

Bonjour

Regarde si cela te convient

Pour le faire avec VBA, j'ai mis deux series supplémentaires que j'ai ensuite masqué

Bonjour,

J'ai finalement trouvé la réponse moi-même se rapprochant de celle de CB60.

Merci pour votre aide tout de même.

Olivier