Nuage de points

Bonjour

je n'arrive pas à faire un graph nuage de points

en attachement je voudrais voir sur un graph les points correspondants à mes clients avec placés selon leur revenue en ordonnée et leur marge en absisse

ça parait simple ... mais je n'y arrive point

Merci pour votre aide

Bonsoir,

Une proposition.

Cdlt.

Bonsoir

voici une possibilité

Salut CB60,

c'est TOP !!!! Exactement ce que je veux

Mais ... comment as tu fais?

Merci

Mattjol

Re

Voici une petite explication des deux macro gérant les étiquettes

Sub test()
'on prend le premier graphique de la feuille, et la première série
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
'on comptabilise le nombre de points de ce graphique
    For i = 1 To .Points.Count
'on lui affecte des étiquettes
        .Points(i).ApplyDataLabels
'on selectionne l'étiquette que l'on souhaite, ici on commence en E5 et ensuite on boucle sur I
        .Points(i).DataLabel.Text = [E5].Offset(i - 1)
    Next i
End With
End Sub
Sub EffaceEtique()
'la ligne du dessous permet de gerer les erreurs,
'comme par exemple pas d'étiquette sur le graph lorsqu'on lance la macro
On Error Resume Next
'Ici on selectionne aussi le premier graph
With ActiveSheet.ChartObjects(1).Chart
   .ApplyDataLabels LegendKey:=False, HasLeaderLines:=False, _
        ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=False, _
        ShowPercentage:=False, ShowBubbleSize:=False
End With
End Sub

Bonsoir,

Un pense bête

Cdlt

Option Explicit
Dim i As Long
' ----------------------------------------------------------------------------------
Public Sub Afficher_Etiquettes()
    Application.ScreenUpdating = False
    ActiveSheet.ChartObjects(1).Activate
    On Error Resume Next
    ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel
    On Error GoTo 0
    For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
        ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
        With Selection
            .Font.Size = 11
            .Text = ActiveSheet.Cells(i + 1, 1)
        End With
    Next i
End Sub
' ----------------------------------------------------------------------------------
Public Sub Effacer_Etiquettes()
    Application.ScreenUpdating = False
    ActiveSheet.ChartObjects(1).Activate
    On Error Resume Next
    ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowNone
    On Error GoTo 0
End Sub

Hello

on ne peut gérer ce type de graph que par macro???

Mattjol

re

Je pense que oui, sachant que sur le graph, nous avons trois types de donnée.

Les X

Les Y

Et les étiquettes, si en étiquette on souhaité X ou Y, nous n'aurions pas besoin de la macro