Magic_Doctor
XLDnaute Barbatruc
Bonjour,
Je voudrais récupérer le nom d'une légende d'un graphique dans la cellule A1 au moyen d'une macro.
Par définition, l'objet se nomme en VBA "Legend".
Dans l'aide d'Excel (F1), on accède à la rubrique : "Membres de l'objet Legend".
Dans le paragraphe "Propriétés", il y a une liste de propriétés.
Si je choisis la propriété "Top" et que j'écrive :
ActiveSheet.ChartObjects("Camembert2").Activate
[A1].Value = ActiveChart.Legend.LegendEntries(1).Top
Ça marche parfaitement.
Maintenant si je choisis la propriété "Name" (précisément celle qui m'intéresse) et que j'écrive :
ActiveSheet.ChartObjects("Camembert2").Activate
[A1].Value = ActiveChart.Legend.LegendEntries(1).Name
Alors apparaît le message d'erreur 438.
Je reste perplexe, car normalement cette propriété devrait être acceptée.
Un grand merci pour celui qui lèvera ma perplexité.
Je voudrais récupérer le nom d'une légende d'un graphique dans la cellule A1 au moyen d'une macro.
Par définition, l'objet se nomme en VBA "Legend".
Dans l'aide d'Excel (F1), on accède à la rubrique : "Membres de l'objet Legend".
Dans le paragraphe "Propriétés", il y a une liste de propriétés.
Si je choisis la propriété "Top" et que j'écrive :
ActiveSheet.ChartObjects("Camembert2").Activate
[A1].Value = ActiveChart.Legend.LegendEntries(1).Top
Ça marche parfaitement.
Maintenant si je choisis la propriété "Name" (précisément celle qui m'intéresse) et que j'écrive :
ActiveSheet.ChartObjects("Camembert2").Activate
[A1].Value = ActiveChart.Legend.LegendEntries(1).Name
Alors apparaît le message d'erreur 438.
Je reste perplexe, car normalement cette propriété devrait être acceptée.
Un grand merci pour celui qui lèvera ma perplexité.