Légende graphique secteur sous vba

[llebucheur]

Bonjour à tous.
j'espére que vous pourrez m'aider. Je cherche à indiquer une légende dans un graphique de type secteur créée sous vba.
J'ai trouvé comment faire pour les graphique type xlXYSclatter mais rien sur les xlPie.

Merci d'avance.

 

[Pierrot93]

Re : Légende graphique secteur sous vba

Bonjour,

pas sur d'avoir très bien compris ta demande, mais peut être comme ceci :

    ActiveChart.HasLegend = True

bon après midi
@+

 

[llebucheur]

Re : Légende graphique secteur sous vba

Merci de ta réponse pierrot.
Excuse moi, je n'ai pas était assez préci. Je desire que la légende s'affiche mais je veux aussi définir la légende de chaque secteur.
Secteur1 = terminé
Secteur2= annulé
...
En espérant avoir été plus clair bien que j'en doute.

 

[Pierrot93]

Re : Légende graphique secteur sous vba

Re,

peut être ainsi alors, en jouant avec l'étiquette de donnée et non avec la légende....

Feuil1.ChartObjects(1).Chart.SeriesCollection(1).Points(1).DataLabel.Characters.Text = "titi"

@+

 

[llebucheur]

Re : Légende graphique secteur sous vba

Merci de m'aider pierrot.
Ta solution ne me convient pas car elle modifie le text dans le graphique mais pas dans la légende.
Je continue masi recherche mais il est assez difficile de trouver des sujet à ce propos.
@+

 

[Pierrot93]

Re : Légende graphique secteur sous vba

Re,

perso pas d'autre solution pour le moment... la légende d'un tel graph étant dépendante des en-têtes de colonnes... mets peut être un fichier en pièce jointe, si quelqu'un d'autre passe par là, il aura peut être une autre idée...

 

[llebucheur]

Re : Légende graphique secteur sous vba

Salut à tous.
J'ai réussi à venir à bout de mon problème.
Je poste ce que j'ai fait au cas ou quelqu'un soit un jour confronté au même probléme.

Sub feuille_graphe()
Dim n As Long
Dim MonGraphe As Chart
Dim mafeuille As Worksheet
Dim PlageDonnees As Range

ActiveWorkbook.Worksheets(1).Activate
n = Range("A65000").End(xlUp).Row
périm = UF_mémoire.TextBox_périm.Value
Set mafeuille = Workbooks(périm).Worksheets(1)
With mafeuille
Set PlageDonnees = .Range(.Cells(n - 1, 1), .Cells(n, 4))
End With
Set MonGraphe = Workbooks(périm).Charts.Add
MonGraphe.ChartArea.Clear
MonGraphe.ChartType = xlPie
Set Maserie = MonGraphe.SeriesCollection.NewSeries
With Maserie
.XValues = PlageDonnees.Rows(n)
End With
MonGraphe.SetSourceData Source:=PlageDonnees, PlotBy:=xlRows
Call MiseEnFormeLegende
End Sub


Sub MiseEnFormeLegende()
ActiveChart.SeriesCollection(1).Name = "=""Avancement de l'IE"""
ActiveChart.HasLegend = True
ActiveChart.HasTitle = True
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=True, _
ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
End Sub


Bonne journée à tous et à bientot!