N° de séries d'un graphique

[allaryxavier]

Bonjour,

J'aimerais savoir s'il est possible d'extraire le numéro des séries/pointer dans un graphique nuage de points.

Dans l'exemple ci-joint: il faudrait que dans la colonne C apparaissent le n° (1,2,3 ou 4) des 4 séries du graphique.

Merci

 

[jetted]

Re : N° de séries d'un graphique

Allo

J'espere que ceci peux-t'aider

Sub Macro1()
    ActiveSheet.ChartObjects("Chart 1").Activate
    a = ActiveChart.SeriesCollection.Count
    For k = 1 To a
        b = ActiveChart.SeriesCollection(k).Name
        Range("A1").Select
        Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
         True).Activate
        ActiveCell.Offset(0, 2).Activate
        ActiveCell.Value = k
        ActiveSheet.ChartObjects("Chart 1").Activate
    Next
End Sub