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
Configuration: Windows XP
Internet Explorer 6.0
Excel 2003 / 2007

2 réponses

  1.
    Raymond PENTIER Messages postés 58218 Date d'inscription   Statut Contributeur Dernière intervention   17 485
     
    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
  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