Creer un camembert avec vba excel

Version imprimable

04/02/2009, 12h35
nsqualli

Creer un camembert avec vba excel

Bonjour tout le monde,

j'ai un traitement que je fais avec une macro excel qui me donne 7 colonnes où a la fin de chaque colonne y'a la moyenne qui se calcule.

ce ce que je veux faire maintenant, c'est qu'avec une macro je genere un camembert qui me representera les ratios des moyennes pour chaque colonne.

est ce que cela est possible? si oui aidez moi SVP

Merci a vous
04/02/2009, 13h41
Fvandermeulen

Bonjour,
A ta place je commencerais à créer le graph souhaité via l'enregistreur de Macro. Si ta ligne source change en fonction du traitement fait par ta macro, tu peux adapter ton conde en mettant des variables dans la source de donnée de ton graph.
En espérant avoir été clair...

c ce que j'ai fais en fin de compte, et ça marche. merci beaucoup pour l'idée

là je veux que le graphe se genere dans la feuille meme et non dans une nouvelle feuille, j'ai fais le code suivant, mais ça me donne une erreur 'erreur d'execution 5: argument ou appel de procedure incorrect' au niveau de la ligne en gras:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Camembert() Dim DerLig As Long Dim nom As String nom = ActiveSheet.Name DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Charts.Add ActiveChart.ChartType = xl3DPieExploded ActiveChart.SetSourceData Source:=Sheets("Moyennes des Charges Consommées").Range("B1:H1," & "B" & DerLig & ":" & "H" & DerLig), PlotBy:=xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:=nom With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Ratios des charges consommées" End With ActiveChart.HasLegend = True ActiveChart.Legend.Select Selection.Position = xlRight End Sub

Je suppose que tu ne veux pas créer un graph à chaque fois...
Donc tu n'as pas besoin de tout le code mentionné.
Tu peux manuellement placer le graph ou tu le souhaite et adapter ton code comme suit:
Attention, j'ai pas testé relis bien le code pour voir si ça colle avec tes données.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Code :
Sub Camembert()
Dim DerLig As Long
Dim nom As String
nom = ActiveSheet.Name
    DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 
ActiveSheet.ChartObjects("Chart 2").Activate 'Adapter Chart 2 selon ton cas
ActiveChart.ChartArea.Select    
ActiveChart.SetSourceData Source:=Sheets("Moyennes des Charges Consommées").Range("B1:H1," & "B" & DerLig & ":" & "H" & DerLig), PlotBy:=xlRows
 
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Ratios des charges consommées"
    End With
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
End Sub

04/02/2009, 17h24
nsqualli

si si je veux le creer a chaque fois, car chaque fois que je fais le traitement la feuille ou il y'a les moyennes est supprimée, et recréée
04/02/2009, 17h33
Fvandermeulen

Est-ce que la variable nom, te renvoi bien quelque chose, j'imagine que ça vient de là mais sans trop savoir pourquoi
04/02/2009, 17h55
nsqualli

oui ça me renvoi le nom de la feuille, j'aai testé cela

Bonjour,
J'ai du chercher un peu, mais visiblement le problème vient du fait que le graph n'est pas réellement sélectionné avec la procédure enregistrée,
Voici un code qui fonctionne chez moi, en espérant qu'il convienne.

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
Sub Camembert()
Dim DerLig As Long
Dim nom As String
Dim MonGraph As ChartObject
 
nom = ActiveSheet.Name
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 
    Set MonGraph = Worksheets(nom).ChartObjects.Add(100, 30, 400, 250)
 
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xl3DPieExploded
    ActiveChart.SetSourceData Source:=Sheets("Moyennes des Charges Consommées").Range("B1:H1," & "B" & DerLig & ":" & "H" & DerLig), PlotBy:=xlRows
 
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Ratios des charges consommées"
    End With
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
 
End Sub

06/02/2009, 15h26
nsqualli

Merci Beaucoup Fvandermeulen, 9a marche tres bien j'ai du juste ajouter une ligne pour que les pourcentages soient afficher.
Merci encore une fois.