Discussion :

[marcoole]

Bonjour à tous,

J'ai un problème de syntaxe dans mon code que je n'arrive pas à corriger. Je cherche à générer plusieurs courbes via une boucle. J'utilise donc une variable "k". C'est cette variable que j'ai mal du employer car lorsque je lance ma macro, j'ai le message "paramètre non valide" et la ligne de code en-dessous surlignée.

Code :

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

ActiveChart.SeriesCollection(k).Values = "={1;1}"

Je joins également l'ensemble de mon code et vous remercie d'avance pour vos réponses

Code :

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

1
2
3
4
5
6
ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SeriesCollection.NewSeries
    For k = 2 To 8
    ActiveChart.SeriesCollection(k).Values = "={1;1}"
    ActiveChart.SeriesCollection(k).XValues = "=Feuil1!$A$" & k & ":$B$" & k
    Next k

[mercatog]

Fais entrer dans la boucle la ligne suivante

Code :

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

ActiveChart.SeriesCollection.NewSeries

Sinon, pour travailler avec les variables objets, ci-après le code

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
Private Sub CommandButton1_Click()
Dim ObjCh As ChartObject
Dim k As Integer
 
Set ObjCh = Worksheets("Feuil1").ChartObjects.Add(100, 100, 340, 220)
With ObjCh.Chart
    .ChartType = xlXYScatterLines
    For k = 2 To 8
        With .SeriesCollection.NewSeries
            .Values = "={1;1}"
            .XValues = "=Feuil1!A" & k & ":B" & k
        End With
    Next k
End With
Set ObjCh = Nothing
End Sub

[marcoole]

Merci beaucoup! Ca marche très bien. Par contre, une dernière question. Comment peut-on faire pour que les deux premières séries soient d'une certaine couleur, les 4 suivantes d'une autre couleur et enfin la dernière série d'une troisième couleur?

[mercatog]

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
Private Sub CommandButton1_Click()
Dim ObjCh As ChartObject
Dim k As Integer
 
Set ObjCh = Worksheets("Feuil1").ChartObjects.Add(100, 100, 340, 220)
With ObjCh.Chart
    .ChartType = xlXYScatterLinesNoMarkers
    For k = 2 To 8
        With .SeriesCollection.NewSeries
            .Values = "={1;1}"
            .XValues = "=Feuil1!A" & k & ":B" & k
            .Border.ColorIndex = CouleurLigne(k)
        End With
    Next k
End With
Set ObjCh = Nothing
End Sub
 
 
Private Function CouleurLigne(ByVal i As Integer) As Byte
 
Select Case i
    Case 2 To 4: CouleurLigne = 3
    Case 4 To 7: CouleurLigne = 5
    Case 8: CouleurLigne = 4
End Select
End Function

[marcoole]

Vraiment merci beaucoup