Discussion :

[supengalere]

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

[Invité]

Bonjour,

A tester :

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
 
 
Sub ATester()
 
Dim ShResults As Worksheet
Dim MonAireDeDonnees As Range
Dim MonGraphique As Chart
 
    Set ShResults = Sheets("Results")
 
    With ShResults
         Set MonAireDeDonnees = .Range("K11:L12")
         .Shapes.AddChart.Select
         Set MonGraphique = ActiveChart
         With MonGraphique
             .HasTitle = True
             .ChartTitle.Characters.Text = "Répartition des pertes électriques "
             .ChartType = xlPie
             .SetSourceData Source:=MonAireDeDonnees
         End With
 
    End With
 
    Set MonAireDeDonnees = Nothing
    Set ShResults = Nothing
    Set MonGraphique = Nothing
 
End Sub

[supengalere]

Bonjour Eric et merci beaucoup pour ta réponse !
Le programme trace bien le graphe escompté mais il oublie une partie des données présentes en K9 et L9.
J'ai essayé de les rajouter à l'aide ton programme en modifiant la ligne

Set MonAireDeDonnees = .Range("K11:L12") par

Code :

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

1
2
 
Set MonAireDeDonnees = .Range("K9:L9", "K11:L12")

Problème en l'écrivant comme ca le graphe ajoute aussi les cellules K10 et L10 ce que je ne souhaite pas

Pourrais tu m'aider stp ?
Merci infiniment

[Invité]

Bonjour,

Le problème est que j'ai travaillé à l'aveuglette....

Le plus simple serait de mettre un vidage d'écran de ce que tu veux faire et un fichier de données avec tes explications.

[supengalere]

Biensur je comprends je mets ca tout de suite !
la premiere cellule est en K9 et la dernière en L13

j'aimerais obtenir le graphe suivant :

[Invité]

A tester :

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
30
31
32
33
34
 
 Sub CreatioDuGraphiqueDesPertes()
 
Dim ShResults As Worksheet
Dim MonAireDeDonnees As Range
Dim MonGraphique As Chart
 
    Set ShResults = Sheets("Results")
    With ShResults
         Set MonAireDeDonnees = .Range("K9:L9, K11:L11, K12:L12")
         .Shapes.AddChart.Select
         Set MonGraphique = ActiveChart
         With MonGraphique
             .HasTitle = True
             .ChartTitle.Characters.Text = "Répartition des pertes électriques "
             .ChartType = xlPie
             .SetSourceData Source:=MonAireDeDonnees
 
             .SetElement (msoElementDataLabelCenter)
             .ApplyDataLabels
             .SeriesCollection(1).DataLabels.ShowPercentage = True
 
             .ChartStyle = 38
             .ClearToMatchStyle
 
         End With
 
    End With
 
    Set MonAireDeDonnees = Nothing
    Set ShResults = Nothing
    Set MonGraphique = Nothing
 
End Sub

Sinon pour ton info, j'ai bossé dans ton domaine côté ERDF. Le logo de mon site rappelle cette époque. Tes pertes sur ton réseau intérieur sont ridicules... J'ai vu jusqu'à 210 kW à P*max sur le réseau distribution...