Bonjour,

J'ai essayé de créer une macro qui me créé un graphique "nuage de points" à partir de données sous excel:
une ligne de valeurs correspondant aux abscisses
une autre ligne de valeurs correspondant aux ordonnées

J'ai fait une macro en faisant l'enregistrement et quand je l'exécute il m'affiche n'importe quoi (4 nuages de point).

Est-ce que vous auriez la syntaxe pour réaliser une telle macro ?

Merci d'avance
Aurélien

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
 
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Portefeuille_optimal!$E$7:$BEV$7"
ActiveChart.SeriesCollection(1).Values = "=Portefeuille_optimal!$E$5:$BEV$5"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:= _
"Réprésentation_graphique"
ActiveChart.ApplyLayout (1)
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Legend.Select
Selection.Delete
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select