Deuxième axe dans un graphique Excel

[Agty]

Bonsoir à tous,
Sans fausse modestie, je suis vraiment mauvais en programmation. J'ai cependant la volontée d'y parvenir. J'ai donc essayé de faire une petite macro qui crée un graphique. Du fait des échelles différentes pour les deux séries, j'ai besoin de deux axes et je n'arrive pas à mettre le deuxième axe.
Je cherche donc une aide pour mettre un deuxième axe des ordonnées dans un graphique Excel. Je ne comprends pas pourquoi l'instruction ci-après tirée à partir d'un enrégistrement automatique de macro ne marche pas.

With Graph.Chart
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'Mon premier axe'
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = 'Mon second axe'
End With

Merci d'avance pour votre aide.

 

[Laurent L]

Bonjour,

Pour créer l'axe secondaire, tu dois lui affecter une série. Par exemple :

Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).AxisGroup = xlSecondary

Cordialement,

Laurent