Etiquettes de données nuage de points VBA

[Vilain]

Bonjour à tous,

Je cherche actuellement a créer une macro permettant de gérer les étiquettes de données et ce quel que soit le fichier. Par conséquent, ma macro ressemble à ca :

Sub Etiquettes()
Dim Données As Range
Dim Noms As Range
Dim i
Set Données = Application.InputBox("Sélectionnez la plage de données", "SÉLECTION", Type:=8)
Set Noms = Application.InputBox("Sélectionnez la plage des noms", "SÉLECTION", Type:=8)
With ActiveChart.SeriesCollection(1)
        .ApplyDataLabels Type:=xlDataLabelsShowLabel
        For i = 1 To Données.Count
          With .Points(i)
            .DataLabel.Text =
          End With
        Next i
   End With
ActiveChart.Deselect
End Sub

Mon problème concerne le datalabel.text. Je voudrais que le datalabel.text soit égale à ma variable noms, mais je ne parviens pas à le rédiger. Je joins mon fichier. N'hésiter à me demander plus de précisions si je n'ai pas été clair.
Merci d'avance

 

[Pierrot93]

Re : Etiquettes de données nuage de points VBA

Bonjour,

peut être ainsi, si la plage est valide :

With .Points(i)
      .DataLabel.Text = Noms(i)
End With

bon après midi
@+

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Merci beaucoup, il me manquait (i)...
d'ailleurs, peux tu m'expliquer pourquoi je dois rajouter ça ?

 

[Pierrot93]

Re : Etiquettes de données nuage de points VBA

Re,

représente l'item de ton objet "range", celui-ci comportant plusieurs cellules..

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Ok. encore merci pour tes lumières