Discussion :

[lhuuna]

Bonjour,

J'ai un problème similaire à celui posé en début de forum. J'ai réalisé un nuage de points avec deux séries et je souhaiterais ajouter des étiquettes de données ayant pour noms les valeurs d'une colonne. Quelqu'un connait il la macro à appliquer?

Merci!

[mercatog]

Exemple pour chaque point du graphique, on ajoute une étiquette dont le contenu provient des cellules de C2 à Cxx de Feuil1

A adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
Dim Ch As Chart
 
Application.ScreenUpdating = False
Set Ch = Worksheets("Feuil1").ChartObjects("Graphique 1").Chart    'Adapter nom de la feuille et nom du graphique
With Ch.SeriesCollection(1)
    .ApplyDataLabels
    For i = 1 To .Points.Count
        .Points(i).DataLabel.Text = Sheets("Feuil1").Range("C" & i + 1)
    Next i
End With
Set Ch = Nothing

[philo6]

Bonjour
Avec cette macro.
elle compte le nombre de série, une boite de dialogue s'ouvre, on selectionne la cellule de la premiere étiquette, cela pour la premiere série, ensuite la boite de dialogue s'ouvre de nouveau et faire la meme chose.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Etiquettes()
Dim s As Series, i As Integer
Dim choix As Range
With ActiveSheet.ChartObjects(1).Chart
  .ApplyDataLabels Type:=xlDataLabelsShowValue
  For Each s In .SeriesCollection
     Set choix = Application.InputBox(prompt:=" Sélectionner la premiere étiquette ", Type:=8)
    For i = 1 To s.Points.Count
      s.Points(i).DataLabel.Text = [choix].Offset(i - 1)
    Next
  Next
End With
End Sub