<HTML>Voici les codes, à vous d'adaptez les cellules à sélectionnées
pour l'exemple ci-dessous
la rangée de cellules est (B6:K11)
Sub graphique()
'
' Macro1 Macro
' Macro enregistrée le 01/03/2002 par ROBERT
'
'
Range("B6:K11").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("client").Range("B6:K11"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="client"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Michel C0001 14 rue du pont 10564 Nogent sur seine 03 25 39 78 45 03 25 39 78 46"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
N'hésitez pas à visitez mon site www.utilsfr.fr.fm où d'autres programmes sont disponibles</HTML>