Discussion :

[Invité]

Bonjour,

J'essaie de mettre en place une macro qui, lorsque j'ajouterai une ligne de données dans mon classeur, ajouterait également cette ligne dans la sélection de données de mon graphique.
Cependant il semblerait qu'il y ait un soucis dans le code et je ne comprend pas pourquoi.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 ActiveSheet.ChartObjects("Graphique 1").Activate 
 
Range("A2").Select 
 
Range(Selection, Selection.End(xlDown)).Select 
 
A = Range("A1:D" & [D65536].End(xlDown).Row).Select 
 
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(A), PlotBy:=xlColumns

La ligne qui semble poser problème est :

Code :

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

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(A), PlotBy:=xlColumns

Je ne comprends pas où est l'erreur.

Merci par avance pour votre aide
Bonne journée