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