probleme range()

[fred]

Bonjour

je voudrai pouvoir faire une macro qui fasse un graph avec les valeurs de la colonne A, et avec une echelle qui s'arrete a la derniere valeur de la colonne

charts.add
activechart.setsourcedata source := sheets("calcul").range ("A2: jusqu'a la derniere valeur de la colonne"), ...

je suis vraiment bloqué...
merci

fred

 

[EricS]

Bonjour

dernière ligne d'un tableau en regardant la colonne A par ex :

der_lig = Range("a65536").End(xlUp).Row
range("a2:a" & derlig)

ou direct
range("a2:a" & Range("a65536").End(xlUp).Row)

A+
Eric

 

[fred]

ca ne marche pas
j'ai une erreur "range de l'objet global a echoué"

 

[EricS]

RE

un code qui a l'air de marcher, données en A sur Feuil1

graphe réalisé sur Feuil2

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 22/10/2004 par Eric
'
der_ligne = Sheets("Feuil1").Range("a65536").End(xlUp).Row

'
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:A" & der_ligne), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

A+

 

[fred]

merci je vai essayé
c'est sympa de ta part

bon we
ciao

et ciao a tout le forum

fred