VBA et graphique en cascade

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.

Pièce jointe 583805

Le texte vba du fichier intial était le suivant:

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

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:

---

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!

hello,

Citation:

---

Envoyé par Anne973

Comme j'ai rajouté des lignes au dessus, j'ai changé:
Range("C10").Select
et ActiveChart.SeriesCollection(8).Points(Counter).DataLabel.Text = Format(ActiveSheet.Cells(10, 3).

Mais ça ne marche pas...

---

je pense que c'est la ligne suivante qui est mauvaise :

Code:

---

For Counter = 1 To Indexligne - 9

---

comme tu as tout décalé de 11 lignes ça serait plutôt :

Code:

---

For Counter = 1 To Indexligne - 20

---

Si ta cellule de départ des points avait été une cellule nommée (ex : debpoint en C21) tu n'aurais pas eu le problème car ta cellule nommée aurait suivi le décalage.
Exemple de code pour une cellule nommée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub AttachLabelsToPoints()   'Dimension variables. Dim Counter As Integer Dim Indexligne As Integer Dim debRowPoint As Integer Range("debpoint").Select Selection.End(xlDown).Select Indexligne = ActiveCell.Row debRowPoint = Range("debpoint").Row   For Counter = 1 To Indexligne - (debRowPoint - 1)   ActiveSheet.ChartObjects(1).Activate ActiveChart.SeriesCollection(8).Points(Counter).HasDataLabel = True ActiveChart.SeriesCollection(8).Points(Counter).DataLabel.Text = Format(ActiveSheet.Cells(debRowPoint, 3).Offset(Counter - 1, 0).Value, "# ##0") ActiveChart.SeriesCollection(8).Points(Counter).DataLabel.Position = xlLabelPositionAbove Next Counter     End Sub

---

Ami calmant, J.P

Merci beaucoup, ça marche!!!!
merci merci merci:D

Puis-je abuser et demander comment faire pour avoir 2 graphiques de ce type sur la même feuille et 2 macros qui s'exécutent chacune sur leur graphique attitré?