Erreur définie par l'application ou définie par l'objet

Question

J'ai donc une feuille appelée "Dashboard" sur laquelle j'ai plusieurs graphiques, mais chaque semaine j'ajoute des données aux tables sur lesquelles ces graphiques sont basés. La deuxième feuille qui contient les données de cette table est "Totaux historiques" et les données que je souhaite figurer dans les colonnes A à E (cela inclut les étiquettes et les en-têtes). J'essaie d'automatiser la mise à jour des graphiques, et je ne sais pas très bien pourquoi cela ne fonctionne pas. Voici le code que j'ai jusqu'à présent:

Sheets("Dashboard").Select
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.SetSourceData Source:=Sheets("Historical Totals").Range("A1", Range("E1").End(xlDown))

J'ai essayé notre seperating la gamme, et il sélectionne les données appropriées, donc je ne sais pas vraiment où je fais l'erreur.

Answer 1

essayez les opérations suivantes. Vous devez faire référence à la feuille de données chaque fois que vous utilisez Range:

Sheets("Dashboard").ChartObjects("Chart 4").Activate 
ActiveChart.SetSourceData _ 
     Source:=Sheets("Historical Totals").Range(Sheets("Historical Totals").Range("A1"), _ 
       Sheets("Historical Totals").Range("E1").End(xlDown)) 

Answer 2

En supposant que vous avez seulement la table dans les worksheet « totaux historiques » Je habituellement aller xlUp plutôt que xlDown mais ce qui suit est effectivement la même que Philip Une réponse de Barnes:

Sub setArea() 

With Excel.ActiveWorkbook 
     '.Sheets("Dashboard").Select '<==no need to select for the code to execute 
     .Sheets("Dashboard").ChartObjects("Chart 1").Activate 
End With 

With Excel.ActiveWorkbook.Sheets("Historical Totals") 
    Excel.ActiveChart.SetSourceData _ 
         Source:=.Range(_ 
            .Cells(1, 1), _ 
            .Cells(.Cells(.Rows.Count, 5).End(Excel.xlUp).Row, 5) _ 
            ) 
End With 

End Sub