Bonjour, je souhaiterai sélectionner pour faire un graphe, des plages dynamiques, surtout pour rajouter une autre courbe sur mon graphe, mais j'y arrive pas. je veux démarrer ma deuxième courbe a partir de la cellule numéro "AC2"+ lag, et jusqu’à $AC$1947 + lag au lieu de "A2" et $AC$1947 respectivement , comment faire pour changer ça
voici mon code, si vous avez des suggestions,
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
Sub Graphe2()
 
Dim rgPlage As Range
 
Set lag = Worksheets("FED MODEL").Range("S28")
 
Set rgPlage = Range("U1:U1947,AA1:AA1947")
 
moy = InputBox("Voullez vous tracer les primes de risques moyénées ? Tappez oui le cas échéant", Choix)
 
Charts.Add
    With ActiveChart
    'définit le type de graphique
        .ChartType = xlLine
    'définit la plage source
        .SetSourceData Source:=rgPlage
 
    End With
 
 
    If moy = "oui" Then
 
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=""Primes_moyénées"""
    ActiveChart.SeriesCollection(2).Values = "='FED MODEL'!$AC$2:$AC$1947"
    ActiveChart.SeriesCollection(2).XValues = "='FED MODEL'!$U$2:$U$1947"
    End If
 
  End Sub
merci d'avance