Tous les billets

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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)

...