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