[XL-2010] Création simultanée de deux graphiques

' Graphe 1' ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlAreaStacked ActiveChart.SetSourceData Source:=Range("'Détails Rang2'!$JM$4:$TN$4") ActiveChart.SeriesCollection(1).XValues = "='Détails Rang2'!$JO$3:$TN$3" ActiveChart.Location Where:=xlLocationAsObject, Name:="Accueil" Dim a As Chart Set a = ActiveChart a.ChartArea.Height = 420 a.ChartArea.Width = 760 a.ChartArea.Left = 380 a.ChartArea.Top = 10 ' Graphe 2 ' ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlAreaStacked ActiveChart.SetSourceData Source:=Range("'Détails Rang2'!$JM$5:$TN$5") ActiveChart.SeriesCollection(1).XValues = "='Détails Rang2'!$JO$3:$TN$3" ActiveChart.Location Where:=xlLocationAsObject, Name:="Accueil" Dim a As Chart Set a = ActiveChart a.ChartArea.Height = 420 a.ChartArea.Width = 760 a.ChartArea.Left = 380 a.ChartArea.Top = 440

Salut,

En clair tu veux factoriser.

On peut faire ceci par exemple:

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
35
36
37
38
39
40
Option Explicit
 
Type GraphData
    Source As String
    XValues As String
    Left As Integer
    Top As Integer
End Type
 
Public Sub CreateGraphs(ByVal Sheet As Excel.Worksheet, ByRef ChartData() As GraphData)
    Dim i As Integer
    For i = LBound(Data) To UBound(Data)
        Dim Chart As Excel.Chart
        Set Chart = Sheet.Shapes.AddChart
 
        Chart.ChartType = xlAreaStacked
        Chart.SetSourceData Source:=Range(ChartData(i).Source)
        Chart.SeriesCollection(1).XValues = ChartData(i).XValues
        Chart.Location Where:=xlLocationAsObject, Name:="Accueil"
        Chart.ChartArea.Height = 420
        Chart.ChartArea.Width = 760
        Chart.ChartArea.Left = ChartData(i).Left
        Chart.ChartArea.Top = ChartData(i).Top
    Next
End Sub
 
Sub test()
    Dim ChartData(0 To 1) As GraphData
    ChartData(0).Source = "'Détails Rang2'!$JM$4:$TN$4"
    ChartData(0).XValues = "='Détails Rang2'!$JO$3:$TN$3"
    ChartData(0).Top = 10
    ChartData(0).Left = 380
 
    ChartData(0).Source = "'Détails Rang2'!$JM$5:$TN$5"
    ChartData(0).XValues = "='Détails Rang2'!$JO$3:$TN$3"
    ChartData(0).Top = 440
    ChartData(0).Left = 380
 
    CreateGraphs ActiveSheet, ChartData
End Sub

PS: Je ne suis pas convaincu de l'intérêt de passer par un tableau.