Macro pour nuage de points comprenant deux séries

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!

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

A adapter

Code:

---

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

---

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:

---

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

---

À nouveau bonjour,

Philo 6, est il possible d'adapter la macro pour qu'elle fonctionne si le graphique est sur une autre page que le tableau de valeurs?

Encore merci,