VBA Excel graphique Fermé

Question

Bonjour, 

qqun peut il m'expliquer svp  pourquoi ce bout de ligne de code me sors un message d'erreurs:

Private Sub CommandButton1_Click()

Sheets(2).Select
Sheets(2).Range("A:A").End(xlDown).Select
i = ActiveCell.Row
Sheets(3).Select
ChartObjects("Chart 8").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Cells(2, 1), Cells(i, 3))

End Sub


l'erreur est surement au nivo du range, quand je modifie mon range par range("A2:C15") ca marche.
Mais je voudrais comprendre pq? et y'a til un moyen d'arranger ca, car j'ai besoin d'introduire la variable i.



Merci d'avance







Configuration: Windows XP / Firefox 3.6.15n

ccm81 · Answer

bonjour,     

1. je crois qu'il manque un .Chart après ActiveChart, mais je crois que ce qui ne lui plait pas c'est que la plage et le graphique ne sont pas dans la feuille
  
2. si i, la plage de données et le graphique sont dans des feuilles différentes, un exemple de  procedure a mettre dans un module et à appeler par un bouton (la plage est definie en style A1)

Public Sub graph()
  i = Sheets(2).Range("A:A").End(xlDown).Row
  Set plage = Sheets(3).Range("A" & 2 & ":C" & i)
  With Sheets(1).ChartObjects(1).Chart
    .SetSourceData Source:=plage
  End With
End Sub

bonne suite