Elargir sélection de données d'un graphique Fermé

Question

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

tuxboy · Answer

Salut,

Est-ce impératif de passer par une macro ou bien ne serait-il pas plus simple de nommer une variable dynamique avec la fonction DECALER :
https://www.developpez.net/forums/d647917/logiciels/microsoft-office/excel/graphique-excel-plage-donnees-variable-longueur/

??? ;)

ccm81 · Answer

Bonjour à tous les deux

Si tu tiens absolument à une macro, essaies ceci

Public Sub ok()
Dim plage As String, lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ChartObjects("Graphique 1").Activate
plage = "A1:D" & lifin
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(plage), PlotBy:=xlColumns
End Sub
Cdlmnt

Elargir sélection de données d'un graphique

2 réponses

Discussions similaires