graphs, étiquettes de donnees

Bonjour,

Ce qui suit est une solution donnée sur le forum, tu peux l'adapter à tes
besoins.

Pour tenir compte d'éventuels changements d'étiquettes.
Un tableau de trois colonnes adjacentes.
Première colonne : Étiquettes
Les deux autres : Valeurs X et Y du nuage de points.
a 1 6
b 2 7
c 3 8
d 4 9
e 5 10

sélectionne les valeurs numériques et appelle cette macro.
Restriction : une seule série.

Sub Construit_Nuage_Avec_Étiquettes_Mises_À_Jour()
Application.ScreenUpdating = False
Set ici = Selection
nom = ActiveSheet.Name
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=ici, PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=nom
End With
Set plage = ici.Offset(, -1).Resize(, 1)
i = 1
For Each c In plage
Set point = ActiveChart.SeriesCollection(1).Points(i)
With point
.ApplyDataLabels Type:=xlShowValue
.DataLabel.Text = "=" & c.Address _
(ReferenceStyle:=xlR1C1, external:=True)
End With
i = i + 1
Next
End Sub

--
à+twinley
"lili" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:89f301c49652$d9d6e380$a601280a@phx.gbl...
Bonjour,

je fais des graphs (histo) sous excel. Connaissez vous un
moyen de garder fixes les etiquettes de données lorsque
les valeurs changent, afin d'éviter de perdre du temps sur
chaque graphique a réinstaller les etiquettes.

MERCI!