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
Partager