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

Noune -  
ccm81 Messages postés 11033 Statut Membre -
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

2 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1

Discussions similaires

Problème de restrictions
SuperAmbi -
Pat -

5 réponses
Copier coller impossible
coulondou -
jeanmarc -

43 réponses