Discussion :

[formabox]

Hello le forum,

Quelqu'un peut-il me dire s'il existe un add-in dans Excel pour ajouter automatiquement les étiquettes à chaque point de chacune des courbes de mon graphique.

Car dès que j'insère mon graphique, je vais dans l'onglet Disposition > Bouton Etiquettes de données > Autres options...

Et si j'active l'option Afficher les noms de séries, ces noms s'affiche uniquement sur une des courbes et non sur toutes. Résultat, je dois aller sur chaque point pour afficher l'étiquette et mes données changent régulièrement...

Merci et toute belle journée,

[formabox]

En cherchant sur le Web, je suis tombée sur une explication sur le site de Microsoft.Support (http://support.microsoft.com/kb/914813/fr.

L'exemple fonctionne super bien avec mes données Mais je me demandais si avec cette macro, il est possible que les étiquettes soient pas forcément juste avant la colonne des données X et Y ?

Du style, ma colonne A contient des Noms qui seraient les étiquettes, ma colonne B contient des prénoms (pas besoins dans le graphique) et mes colonnes C et D contiennent les données X et Y.

Je n'arrive pas à trouver dans le code si je peux lui indiquer que la colonne d'étiquettes se trouve dans une colonne fixe ??

Merci pour votre aide

[formabox]

Re hello,

J'ai compris ce qu'il fallait changer dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
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 = _

'La macro de base contenait la valeur -1 qui allait rechercher la colonne qui se trouve avant la colonne des données X, en mettant -2, il va chercher deux colonnes avant ;-)
Range(xVals).Cells(Counter, 1).Offset(0, -2).Value
Next Counter

End Sub

J'espère que mon sujet pourrait aider d'autres personnes