[XL-2019] Graphique plage variable

Citation:
Envoyé par duplaly
Bonjour,
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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim NouvelleLigne As Integer
 
        If Target.Address = ("$A$2") Then
 
            NouvelleLigne = Target.Value + 1
            ActiveSheet.ChartObjects("Data").Activate
 
            With ActiveChart
 
                 .SeriesCollection(1).XValues = "=Tableau!R2C3:R" & NouvelleLigne & "C3"
                 .SeriesCollection(1).Values = "=Tableau!R2C4:R" & NouvelleLigne & "C4"
                 .SeriesCollection(2).Values = "=Tableau!R2C5:R" & NouvelleLigne & "C5"
                 .SeriesCollection(3).Values = "=Tableau!R2C6:R" & NouvelleLigne & "C6"
 
                 ' Pour mettre l'année sur vos séries
                 '-----------------------------------
                ' .FullSeriesCollection(1).Name = "=Tableau!$D$1"
                ' .FullSeriesCollection(2).Name = "=Tableau!$E$1"
                ' .FullSeriesCollection(3).Name = "=Tableau!$F$1"
 
                Target.Activate
 
            End With
 
            ' Pour mettre en valeur les semaines sélectionnées
            '-------------------------------------------------
            Range("C2:C53").Interior.ColorIndex = xlNone
            Range("C2:C" & NouvelleLigne).Interior.Color = RGB(255, 255, 0)
 
        End If
 
End Sub