Tracé de camembert vba

Version imprimable

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:

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 :)

Citation:

Envoyé par supengalere

Bonjour,

A tester :

Code:

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

03/08/2017, 14h07
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:

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 :zoubi:
03/08/2017, 14h14
Invité

Citation:

Envoyé par supengalere

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.
03/08/2017, 15h15
supengalere

2 pièce(s) jointe(s)

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

j'aimerais obtenir le graphe suivant :

Pièce jointe 300005

Citation:

Envoyé par supengalere

A tester :

Code:

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... :ptdr: J'ai vu jusqu'à 210 kW à P*max sur le réseau distribution...

03/08/2017, 16h13
supengalere

Merci Eric ca fonctionne du feu de dieu :)
Et oui je suis en école d'ingé en stage ! Je ne bosse que sur une ligne la et à mon avis mon modèle de calcul de pertes n'est pas tout à fait au point !
En tout cas merci pour ton aide, ca m'a bien dépanné !
A bientot sur le forum !
03/08/2017, 16h29
Invité

Citation:

Envoyé par supengalere

à mon avis mon modèle de calcul de pertes n'est pas tout à fait au point !

Pas sûr, tu ne dois pas travailler sur tes liaisons intérieures sur les mêmes ordres de grandeur que côté réseau : 8 MW à 12 MW et entre 10 km et 15 km du poste source. J'ai perdu mes repères...