P
Pat5
Guest
Bonjour le forum
Comment définir la plage de données source d'un graphique en sachant qu'elle sera variable à chaque demande.
Je choisi une plage de chiffres entre " n " jours demandé par calendrier. ( ça c'est bon )
Je copie cette plage dans une feuille appelée " Graphique "dans la colonne A.
Il y a un graphique déjà fait et je voudrais que la plage de données source soit modifiée suivant les valeurs de la colonne A ( il peut y avoir 10 valeurs, comme 350 ou plus et avec des cellules vides mais qui doivent être prises quand même en compte )
J'ai fait celà mais ça marche pas car la plage de données est toujours considérée de A1 à A10 et non de A1 à " n "cellules )
Dim Der As Range
Dim Chart As Variant
Set Der = Cells(65536, ActiveCell.Column).End(xlUp)
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SetSourceData Source:=Sheets("Graphique").Range("A1:A" & Der), PlotBy:=xlColumns
J'espère que je me suis bien expliqué et avec tous mes remerciements je vous souhaite un bon dimanche
Pat5
Salut ;o)
Comment définir la plage de données source d'un graphique en sachant qu'elle sera variable à chaque demande.
Je choisi une plage de chiffres entre " n " jours demandé par calendrier. ( ça c'est bon )
Je copie cette plage dans une feuille appelée " Graphique "dans la colonne A.
Il y a un graphique déjà fait et je voudrais que la plage de données source soit modifiée suivant les valeurs de la colonne A ( il peut y avoir 10 valeurs, comme 350 ou plus et avec des cellules vides mais qui doivent être prises quand même en compte )
J'ai fait celà mais ça marche pas car la plage de données est toujours considérée de A1 à A10 et non de A1 à " n "cellules )
Dim Der As Range
Dim Chart As Variant
Set Der = Cells(65536, ActiveCell.Column).End(xlUp)
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SetSourceData Source:=Sheets("Graphique").Range("A1:A" & Der), PlotBy:=xlColumns
J'espère que je me suis bien expliqué et avec tous mes remerciements je vous souhaite un bon dimanche
Pat5
Salut ;o)