Modif Macro ajouter des étiquettes de données à un graphique

[belgarath007]

Bonjour à tous !

je suis totalement néophyte en Macro Excel et j'en ai trouvé une qui m'a déjà bien servi pour ajouter des étiquettes aux points de données dans un graphique à nuages de points :

Sub AttachLabelsToPoints()

   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String

   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False

   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula

   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop

   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
         True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
   Next Counter

End Sub

Dispo ici :
Comment faire pour utiliser une macro pour ajouter des étiquettes aux points de données dans un graphique à nuages de points (XY) ou un graphique à bulles dans Excel

Je souhaiterai maintenant utiliser cette macro dans le cas où j'ai un seul graphique mais avec plusieurs séries de données.
Est-ce qu'une bonne âme pourrait m'aider à modifier la macro en ce sens ?

cf pièce jointe là où j'en suis.

Merci beaucoup pour votre aide 🙂

 

[belgarath007]

Re : Modif Macro ajouter des étiquettes de données à un graphique

Pas d'idée ? 😕

 

[belgarath007]

Re : Modif Macro ajouter des étiquettes de données à un graphique

Je me permets de faire remonter la discussion, j'en ai vraiment besoin... Merci ! 🙂