Discussion :

[Abdelbasset HAMIDI]

Bonjour,

Je cherche à modifier mon code VBA pour créer plusieurs graphiques distincts.

Premier graphe :
.SetSourceData Source:=Range("'Détails Rang2'!$JM$4:$TM$4")
.SeriesCollection(1).XValues = "='Détails Rang2'!$JO$3:$TN$3"

Deuxeme graphe :
.SetSourceData Source:=Range("'Détails Rang2'!$JM$5:$TM$5")
.SeriesCollection(1).XValues = "='Détails Rang2'!$JO$3:$TN$3"
;
;
;
;
N graphe :

.SetSourceData Source:=Range("'Détails Rang2'!$JM$n:$TM$n")
.SeriesCollection(1).XValues = "='Détails Rang2'!$JO$3:$TN$3"

Je reste a votre disposition,

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Macro8()
 
    ' Declare variables
 
    Dim ws As Worksheet
    Dim rngData As Range
    Dim chtChart As ChartObject
    Dim i As Integer
 
    ' Set the worksheet and data range
 
    j = 3 + Range("JN2").Value
 
    Set ws = ThisWorkbook.Worksheets("Détails Rang2")
    Set rngData = ws.Range("JM3:TN" & j)
 
    ' Loop through each Rows of the data range
 
    For i = 2 To rngData.Rows.Count
 
        ' Add a new chart object
 
        Set chtChart = ws.ChartObjects.Add(Left:=380 * (i - 1), _
            Top:=10, Width:=760, Height:=420)
 
        ' Set the chart type and data range
 
        With chtChart.Chart
            .ChartType = xlAreaStacked
 
            .SetSourceData Source:=Range(rngData.Rows(1), rngData.Rows(i))
 
            .SeriesCollection(1).XValues = "='Détails Rang2'!$JO$3:$TN$3"
 
 
            .HasTitle = True
            .ChartTitle.Text = "Chart " & i - 1
            .Location Where:=xlLocationAsObject, Name:="Accueil"
 
        End With
 
    Next i
 
End Sub

[EricDgn]

Bonjour,

Quelque chose de ce genre:

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
Option Explicit
 
Sub Macro8()
    Dim ws As Worksheet
    Dim rngData As Range
    Dim chtChart As ChartObject
    Dim i As Long, j As Long
    Set ws = ThisWorkbook.Worksheets("Détails Rang2")
    j = 3 + ws.Range("JN2")
    Set rngData = ws.Range("JM3:TN" & j)
    For i = 2 To rngData.Rows.Count         ' Loop through each Rows of the data range
        ' Add a new chart object
        Set chtChart = ws.ChartObjects.Add(Left:=10 + 300 * (i - 1), Top:=60, Width:=300, Height:=200)
        ' Set the chart type and data range
        With chtChart.Chart
            'Debug.Print rngData.Rows(1).Address, rngData.Rows(i).Address
            .ChartType = xlAreaStacked
            .SetSourceData Source:=rngData.Rows(i)
            .SeriesCollection(1).XValues = rngData.Rows(1)
            .HasTitle = True
            .ChartTitle.Text = "Chart " & i - 1
            .Location Where:=xlLocationAsObject, Name:="Accueil"
        End With
    Next i
End Sub

Cordialement.