Macro pour affichage graphique automatique
Bonjour à tous,
Je vous écrits car j'ai besoin de votre aide !! ;)
Mon problème est que je veux automatiser l'affichage d'un graphique à l'aide d'une macro, mais la valeur de mes colonnes ne figurent pas dans mon graphique obtenu.
Je m'explique: j'obtiens en fait un graphique secteur avec effets 3D mais sans les valeurs dessus...
Or j'ai essayé avec l'enregistreur de macro mais cela n'a pas pris en compte que je voulais rajouter la valeur de ma colonne (des pourcentages) à afficher au dessus de chaque segments éclatés du graphe....
Mon graphe n'a donc pas d’intérêt sans l'affichage de ces valeurs..
Si quelqu'un a une idée ça serait super gentil!!
Je vous remercie d'avance !! ;)
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Range("A3:A12,E3:E12").Select
Range("E3").Activate
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("Custodian").Range("A3:A12,E3:E12") _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphique"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "PdM en %promoter pour custodian"
End With |
