Discussion :

[SybVicious]

Bonjour,

je cherche à définir une plage de cellules a partir de cellules bien précises.
Lorsque je fais :

Code :

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

1
2
3
4
 
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Sheets("maFeuille").Range("A1:C22")

cela marche sans problème.

Code :

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

1
2
3
4
5
 
Petit hic lorsque je passe à :
    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Sheets("maFeuille").Range((Cells(1, 1)), Cells(22, 3))

a priori le résultat devrait etre le meme mais apparemment cela pose probleme...je tourne en rond..
merci de votre aide

[Invité]

Bonsoir,

A priori :

Code :

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

1
2
3
ActiveChart.SetSourceData Source:=Sheets("maFeuille").Range(Cells(1, 1), Cells(22, 3))
au lieu de :
ActiveChart.SetSourceData Source:=Sheets("maFeuille").Range((Cells(1, 1)), Cells(22, 3))

[fred65200]

bonsoir,
aussi surprenant que cela puisse paraître, pour moi, après essai, les trois fonctionnent. Testé sur Excel 2007.

cordialement

[SybVicious]

Merci pour vos réponse, j'ai essayé ta solution jacques jean mais j'ai toujours la même erreur :

Code :

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

1
2
 
"la méthode 'cells' de l'objet '_Global' a échoué"

Je ne vois pas d'où cela peut provenir.

Merci de votre aide

[ouskel'n'or]

Teste avec

Code :

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

ActiveChart.SetSourceData Source:=Sheets("maFeuille").Range(Cells(1, 1), Cells(22, 3)).address

A tout hasard. J'ai eu le pb une fois et je sais que j'avais placé l'adresse de la plage dans une variable (VBA97 ou 2003...)

[Gorfael]

Salut SybVicious et le forum
Essaie ça

Code :

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

ActiveChart.SetSourceData Source:=Sheets("maFeuille").Range(Sheets("maFeuille").(Cells(1, 1)), Sheets("maFeuille").Cells(22, 3))

A+