Bonjour à tous

Un petit appel à l'aide pour une mauvaise en VBA (c'est ma première publication)
J'ai l'habitude d'utiliser un fichier déjà tout prêt qui me fait un super graphique en cascade (à l'époque le graphique en cascade n'existait même pas dans les graphiques proposés d'excel, mais il reste quand même mieux que ce qu'Excel propose maintenant).
Et là je voulais juste ajouter des lignes au-dessus de ce fichier pour pouvoir intégrer directement le graphique au-dessous d'autres informations et du coup la macro ne marche plus.

VBA.xlsm

Le texte vba du fichier intial était le suivant:

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
Private Sub CommandButton1_Click()
 
Call AttachLabelsToPoints
 
End Sub
 
Sub AttachLabelsToPoints()
 
'Dimension variables.
Dim Counter As Integer
Dim Indexligne As Integer
 
    Range("C10").Select
    Selection.End(xlDown).Select
    Indexligne = ActiveCell.Row
 
 
For Counter = 1 To Indexligne - 9
 
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(8).Points(Counter).HasDataLabel = True
ActiveChart.SeriesCollection(8).Points(Counter).DataLabel.Text = Format(ActiveSheet.Cells(10, 3).Offset(Counter - 1, 0).Value, "# ##0")
ActiveChart.SeriesCollection(8).Points(Counter).DataLabel.Position = xlLabelPositionAbove
Next Counter
 
End Sub
Comme j'ai rajouté des lignes au dessus, j'ai changé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Range("C10").Select
et ActiveChart.SeriesCollection(8).Points(Counter).DataLabel.Text = Format(ActiveSheet.Cells(10, 3).
Mais ça ne marche pas...

Help please?

Par la suite, j'aimerais également avoir 2 graphiques de ce type sur la même feuille et pareil je bloque sur la partie VBA.

Merci à vous!