Bonjour à tous

Je souhaiterai tracer un graphique bâton en fonction d'un nombre n représentant le nombre de série (=nombre de case cochée dans ma listbox)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Worksheets("Analysis").Activate
Dim p As Integer
p = MonthlyKPI.Subox.ListCount
 
 
MsgBox (p)
 
For i = 1 To p
ActiveSheet.ChartObjects("Graphique 1").Activate
 
Charts("Graphique 1").SeriesCollection(i).Values = Worksheets("Analysis").Range(.Cells(6, 17), .Cells(6 + i, 17))
Next
End Sub
Ligne 11 j'ai le message d'erreur suivant.

Erreur de compilation : Référence incorrecte u non qualifiée.

Est ce que quelqu'un peut me donner une piste de résolution ...?

En vous remerciant beaucoup !