PERSONNALISER LES LABELS D'UN GRAPHIQUE EXCEL

Sub AfficheLabel()
'
' Compte le nombre de points de la série sélectionnée
NBpoints = ActiveChart.SeriesCollection(1).Points.Count

' Début de boucle pour la génération des labels
For i = 1 To NBpoints
     With ActiveChart.SeriesCollection(1).Points(i)

     ' Active l'option affichage du label
        .HasDataLabel = True

     ' Personnalise le texte et la mise en forme
        .DataLabel.Text = Range("A" & i).Value
        .DataLabel.Font.Size = "8"

    End With
Next

End Sub