[XL-2010] Personnaliser ses labels

[Space Cowboy]

Bonjour,

Voici mon graphique :



Je souhaite avoir chaque labal à coté de chaque données.
a pour la première ligne.
b pour la deuxième ligne.
etc ...

au lieu de a b c d e f g h i j pour chaque label.

j'ai essayé sous Excel 200 et 2010 mais sans résultat.

[mromain]

Bonjour Space Cowboy,

Voici un essai avec la création du graphique par macro :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim etiq As Range, zoneValeurX As Range, zoneValeurY As Range, graph As Chart, zoneGraph As Range, serieG As Series, iPt As Long
 
    With ThisWorkbook.Sheets("Feuil1")
        Set zoneValeurX = .Range("A1:A10")
        Set zoneValeurY = .Range("B1:B10")
        Set etiq = .Range("C1:C10")
 
        'définir la zone du graphique
        Set zoneGraph = .Range("D2:H15")
        'créer le graphique "XYScatter"
        With zoneGraph
            Set graph = .Parent.ChartObjects.Add(.Left, .Top, .Width, .Height).Chart
        End With
        graph.ChartType = xlXYScatter
        'ajouter la série et ses valeurs
        Set serieG = graph.SeriesCollection.NewSeries()
        serieG.Name = "blablabla !"
        serieG.MarkerStyle = XlMarkerStyle.xlMarkerStyleSquare
        serieG.XValues = zoneValeurX.Value
        serieG.Values = zoneValeurY.Value
        'ajouter les étiquettes
        For iPt = 1 To zoneValeurX.Cells.Count
            serieG.Points(iPt).HasDataLabel = True
            serieG.Points(iPt).DataLabel.Text = etiq(iPt).Text
        Next iPt
    End With

A+