génération graphique via vba

Version imprimable

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:

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

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

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

Fais entrer dans la boucle la ligne suivante

Code:

ActiveChart.SeriesCollection.NewSeries

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

Code:

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

26/11/2012, 07h41
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?

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
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

26/11/2012, 19h50
marcoole

Vraiment merci beaucoup