XL 2016 Sélectionner les données d'un graphique automatiquement VBA

[xavierfaj]

Bonjour,

Je cherche à sélectionner automatiquement les données d'un graphique, afin que lors d'ajout de lignes, une nouvelle série soit créée dans le graphique.
J'ai pour cela écrit une macro, mais qui ne fonctionne pas. Elle bloque à la ligne d'attribution de la plage de donnée des abscisses.

Sub boucle_while()

ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select

Dim rang As Integer
Dim plageX, plageY As String
rang = 2
i = 1

While Cells(rang, 1) <> ""
plageX = "B" & rang & "😀" & rang
plageY = "E" & rang & ":G" & rang
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(i).Name = Cells(rang, 1)
ActiveChart.FullSeriesCollection(i).XValues = plageX
ActiveChart.FullSeriesCollection(i).Values = plageY

rang = rang + 1
i = i + 1

Wend

End Sub

 

[xavierfaj]

smiley = : D