Insertion serie dans un graphique avec colonne variable
Bonjour,
j'ai besoin de tracer un graphique d'un nombre de série qui évolue avec l'utilisation du fichier.
Je voudrai évité d'avoir à redéfinir la range global du graphique pour éviter de perdre les filtres choisis par l'utilisateur.
Pour cela j'ai crée la macro suivante:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Public Sub inser_col_graph(Colonne As Integer)
Dim Colonne_Lettre As String
Dim ZoneSerie As String
Dim NomSerie As String
Colonne_Lettre = Split(Cells(1, Colonne).Address(), "$")(1)
ZoneSerie = "='Capacité VS Distance'!$" + Colonne_Lettre + "$7:$" + Colonne_Lettre + "$32"
NomSerie = "='Capacité VS Distance'!$" + Colonne_Lettre + "$6"
ActiveSheet.ChartObjects("GraphCapaVSCDG").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(Colonne).Name = NomSerie
ActiveChart.FullSeriesCollection(Colonne).Values = ZoneSerie
ActiveChart.FullSeriesCollection(Colonne).XValues = "='Capacité VS Distance'!$A$7:$A$32"
ActiveChart.Axes(xlValue).MaximumScale = 80000
ActiveChart.Axes(xlValue).MinimumScale = 0
End Sub |
Mon problème ce situe sur les lignes suivantes:
Code:
1
2
3
4
|
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(Colonne).Name = NomSerie
ActiveChart.FullSeriesCollection(Colonne).Values = ZoneSerie |
cependant je ne comprend pas l'erreur car "NomSerie" et "ZoneSerie" renvoie bien les bonnes chaines de caractères.
Lorsque je lance la macro par un bouton ou depuis l'éditeur, elle plante mais si je défini un point d’arrêt sur la 1ère ligne qui bug et que je passe en pas à pas la macro continue sans soucis.
merci d'avance pour vos diverses remarques
