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