[VBA EXCEL 03]Remplir un graphique à Infobulles

Bonjour,

Je voudrai remplir un graphique à bulle dynamiquement en fonction de certaines données d'un tableau. Voici mon code pour enregistrer les données sources :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ActiveChart.PlotArea.Select ActiveChart.ChartType = xlBubble3DEffect ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(j).XValues = Worksheets(i).Cells(cpt, 1).Value ActiveChart.SeriesCollection(j).Values = Worksheets(i).Cells(cpt, 2).Value ActiveChart.SeriesCollection(j).Name = var_nom ActiveChart.SeriesCollection(j).BubbleSizes = Worksheets(i).Cells(cpt, 3).Value   j=j+1

---

pour les 3 premières séries de données tout va bien, c'est pour le bubblesizes que ça ne marche pas.
J'ai regardé dans l'aide Excel et il est dit que l'on doit remplir bubblesize avec une référence de type R1.
je suppose qu'ils veulent parler d'un truc du style "=Sheet1!r1c5:r2c5".

Quoiqu'il en soit j'ai une erreur "argument ou appel de procédure incorrect".

Si vous avez une idée...

Merci d'avance!!

Finalement j'ai trouvé!!

c'était bien le style de référence qui n'était pas bon, uniquement dans le cas du bubblesizes, ce que j'ai fait :

Code:

---

1 2 3

ActiveChart.SeriesCollection(j).BubbleSizes = "=nom_de_ma_sheet!r" & cpt & "c3"

---

C'est bien je m'autoréponds :)