Discussion :

[doringen]

Bonjour,
après recherche sur la FAQ et les forums, je ne trouve toujours pas chaussure à mon pied. Voici mon problème:
une macro vient incrémenter des données dans un tableau situé sur l´onglet "Reporting" et dans le graphique à bulles lié situé sur l´onglet "Diagram", je veux que le code vienne actualiser les étiquettes de données et y poser les valeurs d´une quatrième plage de cellules située elle aussi sur "Reporting" (cellules Q9 et suivantes en colonne).
le code que j ái développé sous Excel 2000 me renvoie l´erreur 438 "propriété ou méthode non supportée" lorsque la boucle passe sur la ligne "ActiveChart.SeriesCollection(1).Point(I).DataLabel.Text = etiquette"
j´ai essayé de nombreux types de variables, mais sans succès
ci-dessous le code concerné, merci d´avance pour votre aide éventuelle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 Sub SetLabels()
 
Dim P As Point
Dim I As Integer
Dim J As Integer
Dim N As Integer
Dim etiquette As Variant
Dim compteur As Integer
 
 
Sheets("Reporting").Select
If IsEmpty(Range("A9")) = True Then Exit Sub
 
 
   compteur = 1
    For J = 10 To 300
    If IsEmpty(Range("a" & J)) = False Then compteur = compteur + 1
    Next J
 
Sheets("Diagram").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
N = 1
   If Not ActiveChart.SeriesCollection(1).HasDataLabels Then ActiveChart.SeriesCollection(1).ApplyDataLabels
   For I = 1 To compteur
            Sheets("Reporting").Select
            etiquette = Sheets("Reporting").Range("Q" & N + 8).Value
            Sheets("Diagram").Activate
        ActiveSheet.ChartObjects("Diagramm 1").Activate
        ActiveChart.SeriesCollection(1).Point(I).DataLabel.Text = etiquette
        N = N + 1
   Next I
 
End Sub

[SilkyRoad]

bonjour

as tu essayé

Code :

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

ActiveChart.SeriesCollection(1).Point(I).DataLabel.Characters.Text = etiquette

michel

[doringen]

déjà essayé et là encore, même erreur générée.
pourtant, autant l´objet "text" que l´objet "characters" font bien partie des éléments supportés dans les datalabels selon le catalogue d´objets VBA d´excel.
Et les développeurs VBA-E ne semblent pas beaucoup aimer se frotter aux graphiques, certains m´ayant même prévenu que la programmation des graphiques était particulièrement difficile à stabiliser dans le cas de nombreuses itérations...
Merci tout de même d´avoir essayé !

[SilkyRoad]

bonsoir

Et les développeurs VBA-E ne semblent pas beaucoup aimer se frotter aux graphiques, certains m´ayant même prévenu que la programmation des graphiques était particulièrement difficile à stabiliser dans le cas de nombreuses itérations...

...faut pas exagérer ...;o)


Je viens de m'apercevoir qu'il te manquait aussi un S dans Points


tu peux réessayer:

Code :

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

ActiveChart.SeriesCollection(1).Points(I).DataLabel.Characters.Text = etiquette

bonne soirée
michel

[doringen]

ca marche maintenant,
je m´étais bêtement focalisé sur l´objet "Point", alors forcément...
Merci beaucoup !