Bonjour à tous,
Voila je viens vers vous pour un bête tracer de camembert. J'ai utilisé l'enregistreur de macro pour débuter mais je n'ai pas réussi à aboutir : un message d'erreur apparait quand j'essais de déclarer les entrées avec ActiveChart.SeriesCollection(1).Values ...
voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub camembert()
'
 
 
''''
 
Set Sh = Sheets("results")
 
Sh.Shapes.AddChart.Select 'creation d'un graphe
 
 
 
With ActiveChart 'activation du graphe et modification
        .HasTitle = True 'on lui met un titre
        .ChartTitle.Characters.Text = "Répartition des pertes électriques "
        .ChartType = xlPie 'camembert
        .SeriesCollection.NewSeries
    End With
 
ActiveChart.SeriesCollection(1).Values = "=Results!$L$9;Results!$L$11;Results!$L$12"
ActiveChart.SeriesCollection(1).XValues = "=Results!$K$9;Results!$K$11;Results!$K$12"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowPercentage = True
 
 
End Sub
Merci d'avance