etiquette

[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

 

[Zon]

Salut,

Cette erreur vient du fait que tu dois avoir des cellule vides, avec le code tel quel il faut que tu es des données dans la plage A2:A10 si tu as 10 étiquettes à mettre par exemple..

A+++

 

[florent]

bonjour Zon , le Forum

Merci et en effet cela provient bien du fait que j'ai des cellule vide dans mon tableau. Le nombre de lignes varie chaque mois.
Ne connaissant rien en vba ( ou très très peu de chose ), est ce qu'on peut m'aider sur ce sujet là.

Ci joint nom fichier d'essai , sur l'onglet " deb " j'ai l'erreur cause de ligne vide dans le tableau, sur l'onglet " deg " pas de pb mais aussi pas de ligne vide.

merci d'avance

Florent

 

[Zon]

Salut,

Une solution de paresseux en rajoutant une omission d'erreur

With ActiveSheet.ChartObjects("Graphique 1").Chart. _
SeriesCollection(1).Points(i)
on error resume next
.HasDataLabel = True
.DataLabel.Characters.Text = Cells(i + 1, 1)
End With


A+++

 

[florent]

Salut Zon , le Forum,

merci pour la solution, même si c'est une solution de paresseux , c'est une solution et cela me permet d'avancer dans mon projet pour mon boulot.
Merci encore d'aider les utilisateurs d'excel et qui , comme moi, connaissent pas ou peu en langage vba.

A+

Florent

 

[adil]

salut, j'avait aussi le même probleme pour etiqueter un graphe , votre solution m'etait tres bénifique , merci de votre aide.