Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai un graphique (un camembert) avec divers secteurs.
Dans la zone légende, chaque secteur est identifié par une couleur et un texte.
Je dois changer les pourcentages affichés dans chaque secteur (ça je sais faire).

Pour être sûr d'affecter la bonne valeur au bon secteur je voudrais récupéré le texte associé à sa légende pour ensuite chercher dans ma source de données la valeur qui m'intéresse.

Ci-dessous un exemple du résultat



Comme on peut le voir les % affichés ne correspondent pas à la taille physique du secteur.

Et je n'arrive pas à obtenir le "A" correspondant à mon secteur bleu.

J'a essayé avec LegendEntry qui me paraissant prometteur.

Code :

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

1
2
3
4
5
6
 
    Dim l As LegendEntry
    Set l = ActiveChart.Legend.LegendEntries(2)
    l.Select
    Dim cf As ChartFormat: Set cf = l.Format
    Debug.Print l.Format.TextFrame2.TextRange.Text

Mais cela me retourne une chaîne vide.

J'ai fait pas mal de recherches sur Google, sans succès.

Bien sur je pourrais aller dans ma source de donnée en me basant sur l'index du secteur mais si pour une raison X l'ordre des secteurs différait de celui de ma source la donnée affichée serait fausse.

Si quelqu'un a une piste ou un idée, merci.

A+

[MacKay77]

Bonjour,

As-tu essayé de remplacer "ActiveChart" par l'objet Charts accompagné de l'identifiant du graphique?
Je n'ai jamais essayé cette méthode mais pourquoi avoir précisé un index à "LegendEntries"?

Bonne journée.

[marot_r]

Bonjour et merci de ton intérêt.

As-tu essayé de remplacer "ActiveChart" par l'objet Charts accompagné de l'identifiant du graphique?

Oui, passer par ActiveChart ou accéder via la collection ne change rien.

Je n'ai jamais essayé cette méthode mais pourquoi avoir précisé un index à "LegendEntries"?

Dans le code exemple c'est pour essayer de lire "B" la seconde entrée de la légende.

A+

[Menhir]

Ce n'est pas dans Legend qu'il faut essayer de le récupérer mais dans Series en récupérant le Range des abscisses de la série.
En plus, avec un camembert c'est facile, il n'y a qu'une seule série.

[marot_r]

Ce n'est pas dans Legend qu'il faut essayer de le récupérer mais dans Series en récupérant le Range des abscisses de la série.

Auris-tu un exemple de code VBA ?

J'avoue que le modèle d'objet de Excel me casse un peu la cervelle.

A+

[Menhir]

N'oublie pas que l'enregistreur automatique de macro et l'aide VBA sont tes amis.

Code :

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

1
2
Dim MaSerie As String
MaSerie Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.SeriesCollection(1).Formula

Ce code permet de sortir la formule de la série.
Il faut ensuite jouer avec InStr() et Mid() pour extraire le second paramètre et le placer dans un Range.

Je pense qu'il doit être plus simple de passer par la propriété XValues.
Mais j'ai du mal à comprendre ce qu'exporte exactement cette propriété (et pas trop de temps à y consacrer ce soir).
Regarde l'aide VBA si tu peux arriver à trouver ça :
https://msdn.microsoft.com/fr-fr/lib.../ff821866.aspx