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

xavierfaj

XLDnaute Nouveau
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 & ":D" & 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
 

Pièces jointes

  • Classeur1.xlsm
    24.2 KB · Affichages: 2

Discussions similaires

Réponses
0
Affichages
83
Réponses
1
Affichages
119
Réponses
8
Affichages
615
Réponses
3
Affichages
547