Nuage de points

[segroeg 13]

Bonjour,

Dans le cadre d'une enquête sur des salaires, j'aimerai créer un graphique de type "nuage de points" dont les points auraient la même couleur que les cases dans lesquelles se trouvent les données qu'ils représentent.

Apparemment, il faudrait créer une macro mais je ne sais pas faire.

J'en appelle à votre généreuse aide...

 

[kjin]

Re : Nuage de points

Bonjour et bienvenue,
Je sais que parler salaires est toujours aussi compliqué, mais de là à ne pas fournir un fichier exemple...nous sommes très discrets sur xld et puis il suffit de mettre des données bidons !
A+
kjin

 

[segroeg 13]

Re : Nuage de points

Tu as raison Kjn.

Voila donc un exemple pour plus de facilité.

 

[kjin]

Re : Nuage de points

Bonjour,

Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
With cht.SeriesCollection(1)
    For i = 1 To .Points.Count
        With .Points(i)
            .MarkerBackgroundColorIndex = Range("A" & i + 1).Interior.ColorIndex
            .MarkerForegroundColorIndex = Range("A" & i + 1).Interior.ColorIndex
        End With
    Next
End With

A+
kjin