Discussion :

[Aero60]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aero60]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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