tamtam64

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
Sub GraphPnL(ByVal xlsheet As Worksheet)
        'definitions variables
    Dim LastCell As Long
    Dim MyRange As Range, MyRange2 As Range
    Dim MyRange3 As Range, MyRange4 As Range
    Dim MyRange5 As Range
        'Mise à Jour du graphique
    With xlsheet
            'definition des ranges
        LastCell = .Range("A9").End(xlDown).Row
        Set MyRange = .Range("A10:A" & LastCell)
        Set MyRange2 = .Range("B10:B" & LastCell)
        Set MyRange3 = .Range("j10:j" & LastCell)
        Set MyRange4 = .Range("P10:P" & LastCell)
        Set MyRange5 = .Range("D10:D" & LastCell)
        
            'Assignation des ranges de données
        .ChartObjects(1).Chart.SeriesCollection(1).XValues = MyRange
        .ChartObjects(1).Chart.SeriesCollection(1).Values = MyRange2
        .ChartObjects(1).Chart.SeriesCollection(2).Values = MyRange3
        .ChartObjects(1).Chart.SeriesCollection(3).Values = MyRange4
        .ChartObjects(1).Chart.SeriesCollection(4).Values = MyRange5
    End With
End Sub