[XL-2000] Graphique avec Chart space

Bonjour,

Je suis neophyte avec le Chartspace et je souhaiterai utiliser Chartspace pour créer un graphique dans un userform, j'utilise un code tres fortement inspiré de celui de SilkyRoad:

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
28
29
30
31
32
33
34
35
36
Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(30), Plage(30)
 
'suppression des series existantes dans le ChartSpace
For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i
 
For i = 1 To 30
Tableau(i) = Cells(1, 7 + i) 'Abscisses( plage de cellules H1:AJ1 )
Next i
Cht.Type = C.chChartTypeScatterLine 'type de graphique:Barres
 
For j = 0 To ListBox1.ListCount - 1 'boucle sur les éléments de la listbox
    If ListBox1.Selected(j) = True Then
 
        If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
 
        For i = 1 To 30
        Plage(i) = Cells(j + 2, 7 + i) 'recuperation Ordonnees pour chaque série
        Next i
 
        With Cht
        .SetData C.chDimCategories, C.chDataLiteral, Tableau
        .SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
        .SeriesCollection(x).Interior.Color = 50000 * (j + 1)
        End With
 
        x = x + 1
        Erase Plage
    End If
Next j
 
End Sub

J'ai changé le type de graphique, j'utilise un type "ScatterLine", et cela bloque à cette ligne

Code:

.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage

Avec le message suivant "Dimension specifiée non valide avec le type de graphique en cours.
Merci d'avance pour votre aide.