Discussion :

[vincedu74]

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 !

[riaolle]

Bonjour,

Tu utlises qu'à moitié (et du coup, mal) la syntaxe With...End With.
Ce que tu écris :

Code :

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

1
2
Worksheets("Analysis").Activate
.Range("A1").Value = "toto"

Syntaxe correcte :

Code :

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

1
2
3
With Worksheets("Analysis")
    .Range("A1").Value = "toto"
End With

Quand on note un point sans rien devant, c'est qu'on fait référence à un objet d'un bloc With.

[vincedu74]

Bonjour riaolle et merci pour ton conseil.

Cependant je ne vois pas cette erreur dans mon code ...

[riaolle]

Tu écris ceci :

Code :

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

Charts("Graphique 1").SeriesCollection(i).Values = Worksheets("Analysis").Range(.Cells(6, 17), .Cells(6 + i, 17))

Tes points ne font références à rien.

[vincedu74]

D'accord merci bp riaolle

J'ai modifié mon code en conséquence.

Code :

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

1
2
3
4
5
6
7
8
For i = 1 To p
With Sheets("Analysis")
ActiveSheet.ChartObjects("Graphique 1").Activate
 
Charts("Graphique 1").SeriesCollection(1).Values = Worksheets("Analysis").Range(.Cells(6, 17), .Cells(6 + i, 17))
ActiveChart.SeriesCollection(1).XValues = Worksheets("Analysis").Range(.Cells(6, 16), .Cells(6 + i, 16))
End With
Next

Ligne5 : l'indice n'appartient pas à la sélection.

Tu as une nouvelle idée ....?

En te remerciant pour ton aide

[riaolle]

Si tu utilises With va jusqu'au bout

l'indice n'appartient pas à la sélection

Veut dire que qqc n'existe pas. Par ex. tu fais appel à une feuille qui n'existe pas ou à un graphique qui n'existe pas etc...
Essaie avec :

Code :

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

1
2
3
4
5
6
For i = 1 To p
With Sheets("Analysis")
    .ChartObjects("Graphique 1").Chart.SeriesCollection(1).Values = .Range(.Cells(6, 17), .Cells(6 + i, 17))
    .ChartObjects("Graphique 1").Chart.SeriesCollection(1).XValues = .Range(.Cells(6, 16), .Cells(6 + i, 16))
End With
Next

Pourquoi utilises-tu une boucle ? Tu veux que la plage de données aille de la ligne 6 à la ligne 6+p ? Alors :

Code :

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

1
2
3
4
With Sheets("Analysis")
    .ChartObjects("Graphique 1").Chart.SeriesCollection(1).Values = .Range(.Cells(6, 17), .Cells(6 + p, 17))
    .ChartObjects("Graphique 1").Chart.SeriesCollection(1).XValues = .Range(.Cells(6, 16), .Cells(6 + p, 16))
End With

Sans boucle !