belgarath007
XLDnaute Nouveau
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 :
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 🙂
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 :
Code:
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 SubComment 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 🙂