Nombre de séries

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:

---

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 !

Bonjour,

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

Code:

---

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

---

Syntaxe correcte :

Code:

---

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.

Bonjour riaolle et merci pour ton conseil.

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

Tu écris ceci :

Code:

---

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

---

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

D'accord merci bp riaolle

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

Code:

---

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

Si tu utilises With va jusqu'au bout ;)

Citation:

---

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:

---

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:

---

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 !

Je ne savais pas d'où venait cette obstination pour réaliser une boucle dans ce cas précis !

Merciii

Bonjour à tous bonjour Riaolle,

Je souhaiterai insérer d'autres séries de données dans mon graphique

Code:

---

1 2 3 4 5 6 7 8

ActiveSheet.ChartObjects("Graphique 1").Activate   With Sheets("Analysis") .ChartObjects("Graphique 1").Chart.SeriesCollection(1).Values = .Range(.Cells(6, 18), .Cells(5 + p, 18)) .ChartObjects("Graphique 1").Chart.SeriesCollection(2).Values = .Range(.Cells(6, 21), .Cells(5 + p, 21)) '.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Values = .Range(.Cells(6, 20), .Cells(5 + p, 20)) .ChartObjects("Graphique 1").Chart.SeriesCollection(1).XValues = .Range(.Cells(6, 16), .Cells(5 + p, 16)) End With

---

Ligne 4 on me dit Paramètres non valides...

Est ce que tu sais pourquoi ?

en te remerciant

Bonjour,
Avant de lui donner des valeurs, la série 2 de ton graphique existe-t-elle déjà ?

La série comporte des valeurs. Comment puis je la déclarer ?

J'ai essayé de mon côté, a priori la série 2 n'existe pas. Avant de donner une valeur à la série, il faut que tu la créés.

Code:

---

1 2 3 4 5 6 7 8

ActiveSheet.ChartObjects("Graphique 1").Activate With Sheets("Analysis") .ChartObjects("Graphique 1").Chart.SeriesCollection(1).Values = .Range(.Cells(6, 18), .Cells(5 + p, 18)) 'à quoi sert cette ligne, si tu changes 2 lignes plus tard ? .ChartObjects("Graphique 1").Chart.SeriesCollection.NewSeries '<---------------------------------------------- .ChartObjects("Graphique 1").Chart.SeriesCollection(2).Values = .Range(.Cells(6, 21), .Cells(5 + p, 21)) '.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Values = .Range(.Cells(6, 20), .Cells(5 + p, 20)) .ChartObjects("Graphique 1").Chart.SeriesCollection(1).XValues = .Range(.Cells(6, 16), .Cells(5 + p, 16)) End With

---