Discussion :

[chejche]

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

[mercatog]

Il faudra incrémenter aussi le XValues et le Values de la série

Exemple A ADAPTER

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
Sub NEP()
Dim i As Integer
 
With Worksheets("Archive des valeurs").ChartObjects("Graphique 2").Chart
    .ChartArea.ClearContents
    .HasLegend = False
    For i = 1 To 13
        With .SeriesCollection.NewSeries
            .XValues = "='Archive des valeurs'!" & Range("K3:L3").Offset(i - 1).Address
            .Values = "='Archive des valeurs'!" & Range("M3:N3").Offset(i - 1).Address
            .MarkerStyle = -4142
            With .Format.Line
                .Weight = 2
                .DashStyle = msoLineSysDash
            End With
        End With
    Next i
End With
End Sub

[chejche]

Bonjour mercatog,
J'ai essayé de modifier mon VBA parce que tu avait mis mais sa ne marche toujours pas. Un détail que je n'ai pas précisé c'est que je débute tous juste avec les macro (sa doit être ma deuxième macro) donc je galère pas mal. Je n'ai trouvé aucune info sur comment incrémenter un graphique avec une macro, c'est pour sa que je suis là.
Donc, Est ce que je doit remplacer à l'identique ma macro par la tienne ?
Est ce que je doit joindre mon fichier Excel ?

merci pour l'aide,
Julien

[mercatog]

Qu'est ce que tu veux que je te réponde?

Si c'est seulement ta seconde macro, commences d'abord par apprendre les bases du langage: tu as des tutos, une FAQ et un outil de recherche de sujets similaires.

J'aimerai bien moi aussi écrire en chinois, mais je n'ai aucune notion.