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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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