Macro pour Graph XY

Bonjour à tous et toutes j'éprouve certaine difficulté à trouver l’Écriture juste pour faire tourner convenablement ma macro je cherche tout bêtement à tracer un graph xy automatiquement en ayant juste a sélectionner les case des colonne que je veux placer dans mon graph et que celui-ci me les trace en un clic mais le hic survient au niveau de la donnée xvalue je voudrai savoir s'il existe une manière simple pour definir le xvalue de toute les series d'un graphique en même temps:cry:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub ProcLancement(control As IRibbonControl) Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetElement (msoElementChartTitleCenteredOverlay) ActiveChart.ChartArea.Select c'est la que sa coince j'aurai voulu quelque chose de plus leger car si j'ai 20 serie sur mon graphique sa va devenir compliquer sachant que mes donnée de x pour toute les série seront situer de la "case A9 à la dernière case de cette même colone. ActiveChart.SeriesCollection(2).XValues = Range(Cells(11, 1), Cells(11, 1).End(xlDown)) ActiveChart.SeriesCollection(2).XValues = ActiveChart.SeriesCollection(1).XValues nomgraph = inputbox("veuillez donner un nom à votre graphique", "Votre nom") ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=nomgraph ActiveChart.ChartTitle.Text = nomgraph

---

En esperant être le plus clair possible.
Cordialement

Je me permet de vous envoyer la solution que j'ai utilisée pour résoudre mon problème elle consiste a crée une simple boucle for incrémenté par le nombre de série récupéré à l'aide de la balise "ActiveChart.SeriesCollection.Count"

Code:

---

1 2 3 4

k = ActiveChart.SeriesCollection.Count For i = 2 To k Step 1 ActiveChart.SeriesCollection(i).XValues = ActiveChart.SeriesCollection(1).XValues Next

---

En espérant que cela serve à d'autre.*
Cordialement
Aero60