Discussion :

[nsqualli]

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

[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...

[nsqualli]

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 :

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

[Fvandermeulen]

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 :

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

[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

[Fvandermeulen]

Est-ce que la variable nom, te renvoi bien quelque chose, j'imagine que ça vient de là mais sans trop savoir pourquoi