Discussion :

[DIDIDIDA]

salut à vous tous
comme le titre l'indique je veux créer plusieurs graphique sur la meme feuille. en appliquant ce code, il me genere un graphe qui occupe toute la feuille, or moi je veux qu'il soit d'un taille moyenne et générer par exemple un autre graphique de la plage B17:F17, sachant que toute mes données se trouve dans la meme feuille :STATISTIQUECONSO

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
Private Sub CommandButton15_Click()
Dim titre As String
titre = "Répartition des prets par grade de risque"
Worksheets("STATISTIQUESCONSO").Activate
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("STATISTIQUESCONSO").Range("B15:F16"), _
PlotBy:=xlRows
ActiveChart.Location WHERE:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Marché: CONSO " + titre
End With
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
End Sub

MERCI PAR AVANCE

[DIDIDIDA]

j'ai essayé de creer les deux graphes suivant mais il me creer deux feuille alors que moi j'ai besoin de générer en plusieurs!!!merci par avance

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
Dim graph As Chart
Dim titre1 As String
Dim titre2 As String
titre1 = "Production en nombre par grade de risque"
titre2 = "Production en montant par grade de risque"
Set graph = Charts.Add
With graph
.ChartType = xlPie
.SetSourceData Source:=Sheets("STATISTIQUESCONSO").Range("B15:F16"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Characters.Text = "Marché: CONSO " + titre1
End With
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
Set graph = Charts.Add
With graph
.ChartType = xlPie
.SetSourceData Source:=Sheets("STATISTIQUESCONSO").Range("B15:F15,B17:F17"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Characters.Text = "Marché: CONSO " + titre2
End With
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True

[neupont]

j'ai essayé de creer les deux graphes suivant mais il me creer deux feuille alors que moi j'ai besoin de générer en plusieurs!!!merci par avance

Et avec une instruction de ce genre :

Code :

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

1
2
 
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

au lieu de ce que tu as mis :

Code :

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

ActiveChart.Location WHERE:=xlLocationAsNewSheet

?

[DIDIDIDA]

bonjour tout le monde;
excuse moi neupont hier je suis rentre plus tot et je n'ai pas vu ta reponse, tout d'abord merci, et en plus ça marche, c'est à dire il me crée pas de feuille à chaque execution, sauf il met les graphes suppoposés donc on ne voit que le dernier!! je pesnse il faut que je modifie la formule que tu m'avais donner pour lui indiquer la position....merci encore neupont

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
Private Sub CommandButton15_Click()
Dim graph As Chart
Dim titre1 As String
Dim titre2 As String
titre1 = "Production en nombre par grade de risque"
titre2 = "Production en montant par grade de risque"
Set graph = Charts.Add
With graph
.ChartType = xlPie
.SetSourceData Source:=Sheets("STATISTIQUESCONSO").Range("B15:F16"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Characters.Text = "Marché: CONSO " + titre1
End With
ActiveChart.Location WHERE:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
Set graph = Charts.Add
With graph
.ChartType = xlPie
.SetSourceData Source:=Sheets("STATISTIQUESCONSO").Range("B15:F15,B17:F17"), PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Characters.Text = "Marché: CONSO " + titre2
End With
ActiveChart.Location WHERE:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
End Sub

[neupont]

Oui il faut déplacer chaque graphique en utilisant les instructions suivantes :

Code :

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

1
2
3
4
5
6
 
    ActiveSheet.Shapes("Graphique 1").IncrementLeft -63
    ActiveSheet.Shapes("Graphique 1").IncrementTop 72#
...
    ActiveSheet.Shapes("Graphique 2").IncrementLeft -63#
    ActiveSheet.Shapes("Graphique 2").IncrementTop 310

Les valeurs -63, 72 etc... indiquent un déplacement par rapport à l'emplacement d'origine, à toi donc de trouver les bonnes (je sais pas à quoi sert le # que m'a mis la macro auto, on doit pouvoir s'en passer...)

[DIDIDIDA]

merci pour ta reponse neupont;

j'ai comme une question: je suppose que "Graphique 1" est le nom que je dois d'abord affecter à mon premier graphe!