Données source pour étiquettes graphique

[Chris25]

Bonjour à tous.
Question: comment faire apparaitre sur chaque point le nom A, B, C... automatiquement (!) au lieu d'une des coordonnées de ces points?
La saisie manuelle est une solution mais:
- long
- coupée de la table de calcul -> actualisation auto impossible
Merci pour votre aide.
Chris25

 

[Sylvain]

bonjour,

une petite macro à lancer quand tu es sur le graphique (menu outils macro). Elle utilise la colonne à gauche de celle contenant les valeurs x de chaque série. Dans ton cas, il faut insérer les étiquettes à gauche de la seconde série.

Sub étiquettes_xy()
'
' Macro enregistrée le 15/02/2005 par Sylvain
' <http://sn1.chez.tiscali.fr>
'
Dim s_c
Dim libellés
Dim i As Integer
Dim xvals As String
Dim nom_feuille As String
&nbsp; For Each s_c In ActiveChart.SeriesCollection
&nbsp; &nbsp; xvals = s_c.Formula
&nbsp; &nbsp; xvals = Right(xvals, Len(xvals) - InStr(1, xvals, ","))
&nbsp; &nbsp; xvals = Left(xvals, InStr(1, xvals, ",") - 1)
&nbsp; &nbsp; s_c.Select
&nbsp; &nbsp; s_c.HasDataLabels = True
&nbsp; &nbsp; nom_feuille = Left(xvals, InStr(1, xvals, "!"))
&nbsp; &nbsp; For i = 1 To s_c.Points.Count
&nbsp; &nbsp; &nbsp; libellés = "=" & nom_feuille & "R" & Range(xvals).Cells(i).Row & "C" & Range(xvals).Cells(i).Column - 1
&nbsp; &nbsp; &nbsp; s_c.Points(i).DataLabel.Text = libellés
&nbsp; &nbsp; Next
&nbsp; Next
End Sub


A+