etiquettes et graphique

[Florent]

Bonjour le forum,

Je voudrais mettre des étiquettes sur un graphique à bulle
j'ai bien trouvé un fil sur ce forum mais quand j'applique la macro , j'ai une erreur d'execution :

impossible de définir la propriété HasDataLabel de la classe point.

voici la macro ci dessous que j'ai integré à mon fichier


Sub labelgraph()
Dim NombrePoints As Integer
Dim i As Integer

NombrePoints = ActiveSheet.ChartObjects("Graphique 1").Chart. _
SeriesCollection(1).Points.Count

For i = 1 To NombrePoints
With ActiveSheet.ChartObjects("Graphique 1").Chart. _
SeriesCollection(1).Points(i)
.HasDataLabel = True
.DataLabel.Characters.Text = Cells(i + 1, 1)
End With

Next

End Sub


Si quelqu'un pouvait me donner un petit coup de main en m'expliquant ce qui ne va pas, cela serait super sympa . Je ne sais pas si cela est important mais je suis en excel 97

Merci d'avance

Florent