Discussion :

[Anne973]

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!

[jurassic pork]

hello,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

For Counter = 1 To Indexligne - 9

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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

[Anne973]

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

[Anne973]

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é?