Bonjour a tous,

j'essaye d'ajouté une trentaine de nouvelles courbes sur un graphique déjà existant en utilisant une macro. J'ai enregistrer une macro de comment devait être les courbes. Et par la suite je pensais que si j'utilisais une boucle ( For i = 1 to x ; next), Excel aurait ajouté chaque courbe une par une sur le graphique. Mais sa ne se passe pas du tout comme ça. Lorsque je lance la macro, la première courbe se positionne correctement sur le graphique mais pas les suivantes. Voici le VBA :

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
Sub NEP()
'
' NEP Macro
'
 
'
    For i = 1 To 3
    Range("K3").Offset(i - 1, 0).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).XValues = "='Archive des valeurs'!K3:L3"
    ActiveChart.SeriesCollection(3).Values = "='Archive des valeurs'!M3:N3"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(3).Select
    ActiveChart.SeriesCollection(3).AxisGroup = 1
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(3).Select
    Selection.MarkerStyle = -4142
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(146, 208, 80)
        .Transparency = 0
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 0.25
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineSysDash
    End With
        Next i
End Sub
Voilà, si quelqu'un pense avoir la solution, peut-il me l'expliquer,
merci pour votre aide,
julien