Graph excel

Résolu
Eureka -  
 Eureka -
Bonjour,

Peut on, lorsque l'on construit un nuage de points (ou chaque point est l'intersection de l'abscisse et de l'ordonné),nommer automatiquement chacun des points?

Par exemple:

Dans le tableau ci dessous, je souhaiterais: ( ligne 1) que le point d'intersection des valeurs "1" et "2" s'appelle "x"
( ligne 2) que le point d'intersection des valeurs "3" et "1" s'appelle "y", etc ...

x 1 2

y 3 1

z 2 2

Vous remerciant par avance de votre aide

2 réponses

Réponse 1 / 2
Raymond PENTIER Messages postés 71844 Date d'inscription   Statut Contributeur Dernière intervention   17 383
 
NON.

Mais tu peux manuellement insérer des textes, que tu fais glisser au bon endroit ; mais c'est long, et au cas où les valeurs changent, il faur déplacer ces étiquettes une à une.
1
Réponse 2 / 2
Eureka
 
Merci, mais exactement ce que je souhaite éviter ( plusieurs centaines d'adéquations à réaliser ... )

On m'a par ailleurs donné une solution macro qui j'espére pourra aider certains ...

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 Sub

ne me demandez pas d'explications, je sais que ca marche et ca me va !!!
0