VBA Excel- Modification des datalabels d´un graphe
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:
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 |
