Sujet Précédent Sujet Suivant

Graph excel

Résolu/Fermé
Eureka - 22 sept. 2008 à 15:39
 Eureka - 23 sept. 2008 à 09:27
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
A voir également:

2 réponses

Réponse 1 / 2
Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
23 sept. 2008 à 05:12
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
23 sept. 2008 à 09:27
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