Re macro pour graphe

[clebad!]

Bonjour tout le monde,

N'ayant pas eu de réponse, je vous re-sollicite!

J'ai un tableau qui donne les dimensions de planches de bois, et les prix correspondants aux quantités demandées.(ex : 5 planches 50*90=5Euros/planche, 10 planches 50*90=4 euros/planche...)

Ce tableau est très long, et j'aimerais créer une macro qui me permette de générer un graphe donnant le prix en fonction de la quantité, lorsque je selectionne les valeurs correspondantes.(c'est à dire que je lance ma macro, et elle me demande : "selectionner les prix et quantités que vous voulez mettre sous forme de graphe", et ensuite elle trace le graphe!

M'avez-vous compris??

Pouvez-vous me répondre s'il vous plaît??

Merçi d'avance, et à bientôt



PS: ci joint un extrait du tableau

 

[albert]

bonjour clebad!,
je te propose un graphe en 2 dimensions

en x = Dim de la planche
en y = Prix(par planche)

voici la macro
Sub Macro1()
Sheets("Feuil1").Select
'----suppression du graphe-----------
ActiveSheet.ChartObjects(1).Delete
'---construction nouveau graphe
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A5:A20,C5").Select
Range("C5").Activate
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A5:A20,C5:C20"), _
PlotBy:=xlColumns
'---------axe x vertical-----------
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.Axes(xlCategory).Select
With Selection.TickLabels
.Alignment = xlCenter
.Offset = 100
.Orientation = xlUpward
End With
'-----------dimension de chaque barre---------
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 1
.TickMarkSpacing = 1
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With
Range("A4").Select
End Sub

albert