VBA: création graphique en nuages de points (Excel 2007)

Version imprimable

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:

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

Bonjour !

Ceci devrait faire l'affaire ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CreationGraph()
    Dim oGraph As Shape
    Dim oSerie As Series
 
    Set oGraph = ActiveSheet.Shapes.AddChart
 
    With oGraph.Chart
        .ChartType = xlXYScatter
        .HasLegend = False
        Set oSerie = .SeriesCollection.NewSeries
        With oSerie
            .XValues = Range("Portefeuille_optimal!$E$7:$BEV$7")
           .Values = Range("Portefeuille_optimal!$E$5:$BEV$5")
        End With
    End With
End Sub

14/02/2010, 11h07
renard2007

Bonjour,

J'ai essayé ce que vous m'avez donné mais il fait encore les 4 séries dont une seule correspond à ce que veux.

Je fais vraiment pas quoi faire...

Merci d'avance

Aurélien
14/02/2010, 21h27
Maxence HUBICHE

Ben, moi, quand je lance cette macro, il ne fait qu'une seule série !
Il n'a pas de raison d'en faire 4 puisqu'on n'en propose qu'une seule dans le code.

D'où ma question : as-tu essayé d'exécuter SEULEMENT ce code ?

Bonsoir,

J'ai trouvé la solution sur une ancienne macro qui me trace le nuage de points ainsi qu'une droite. Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
' graphique
  Sheets("Portefeuille_optimal").Range(Cells(compteur + 3, 5), Cells(compteur + 3, 1504)).Select
  ActiveSheet.Shapes.AddChart.Select
  ActiveChart.ChartType = xlXYScatter
  ActiveChart.PlotArea.Select
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.SeriesCollection(2).Values = Range(Cells(compteur + 10, 5), Cells(compteur + 10, 1504))
  ActiveChart.SeriesCollection(1).XValues = Range(Cells(compteur + 5, 5), Cells(compteur + 5, 1504)) 'étiquettes
  ActiveChart.SeriesCollection(2).XValues = Range(Cells(compteur + 9, 5), Cells(compteur + 9, 1504)) 'étiquettes
  ActiveChart.SeriesCollection(2).ChartType = xlXYScatterSmoothNoMarkers
  ActiveChart.Location Where:=xlLocationAsNewSheet
  ActiveChart.SetElement (msoElementChartTitleAboveChart)
  ActiveChart.SetElement (msoElementChartTitleAboveChart)
  ActiveChart.ChartTitle.Text = _
      "Rentabilité en fonction de la volatilité"
  ActiveChart.Legend.Delete
  ActiveSheet.Name = "Représentation_graphique"

Par contre, il est vrai que c'est incompréhensible sachant que c'est le seul graphique que j'ai créé.

Merci quand même.

Aurélien