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+