XL 2013 Titre Axe Y d'un graphique (bug VBA excel?)

[fredl]

Bonjour,
suite à recherche infructueuse sur le forum, je me permets de faire appel à vos lumières.
Je souhaite ajouter par vba le titre des axes à un graphique.

Mon code fonctionne très bien pour l'axe des X, mais pas pour l'axe des Y...
Une idée? (sachant que ces lignes de codes proviennent de l'enregistreur de macro) :

ActiveSheet.ChartObjects("Graphique 1").Activate
'Titre axe des X (ok)
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis) 'axe des x
'le champ apparait
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Temps"

'Titre axe Y (qui buggue)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis) 'axe des y
'le champ n'apparait pas et donc bug à l'instruction suivante...
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

Merci d'avance pour votre aide.
Cordialement
Frédéric

 

[fredl]

Bonjour,
"as tu essayé à la place XlValue de mettre xlCategory (comme avec Y)
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

soit:
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

je viens d'essayer, mais sans succès....
(cela selectionne le libellé de l'axe des X...)
merci quand même.

 

[Gardien de phare]

Bonsoir,

C'est juste une supposition, mais je dirais que "msoElementPrimaryValueAxisTitleAdjacentToAxis" n'est pas utilisable pour l'axe vertical.

 

[fredl]

Bonjour,
étrange donc que l'enregistreur de macro nous propose cette instruction...
As tu une autre idée à me soumettre? ,
car là..., je cale...
Merci pour ton aide.
Cordialement.
Frédéric

 

[Gardien de phare]

Bonsoir,

Je n'ai pas tout testé mais il me semble que l'enregistreur de macro propose cette "option" pour les axes horizontaux et d'autres options pour les axes verticaux où, notamment, on définit l'alignement des caractères par rapport à l'axe.

 

[fredl]

trouvé! :

ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Potentiel (mv)"

Frédéric

 

[Gardien de phare]

Bonsoir,

Parfait !