Macro de graphique qui affiche les % d'un camambert

Bonjour,

Sur cette feuille Excel, j'ai tenté de créer une macro (qui s'active en cliquant sur la forme ovale) qui réalise un camembert. Or, j'ai deux questions...

1) Comment rajouter la valeur en pour cent de chaque partie du camembert (quel est le code VBA) ?

2) Par ailleurs serait-il possible d'ajouter comme titre de graphique et titre de nouvel onglet la valeur de la cellule A2 (User1)? J'ai tenté un "=Feuil1!A2", mais cela ne fonctionne pas...

https://www.excel-pratique.com/~files/doc2/Macro_Graph_Percent.xls

Bonsoir

tu peux tester cela:

Sub Macro()
On Error Resume Next
Application.DisplayAlerts = False
test = Sheets("Feuil1").Range("A2")
Sheets(test).Delete
    Charts.Add
    With ActiveChart
        .ChartType = xl3DPieExploded
        .SetSourceData Source:=Sheets("Feuil1").Range("B1:E2"), PlotBy:=xlRows
        .HasTitle = True
        .ChartTitle.Characters.Text = test
        .Location Where:=xlLocationAsNewSheet, Name:=test
        .SeriesCollection(1).ApplyDataLabels AutoText:=True, ShowPercentage:=True
    End With
 Application.DisplayAlerts = True

End Sub

Wow c'est exactement ce que je voulais avoir...