Bouton d ordre a ligne variable

[kINGRON]

Chers amis j ai dans mon dossier joint dans l onglet ''ORDGLG''
un bouton qui lit la ligne 2 pour passer un ordre sur un program .

J aimerais savoir si quelqu un pourrait m aider pour que les boutons
en question puissent lire les lignes 3 , 4, 5 etc jusqu a X si possible...

Merc i beaucoup,

Kingron

 

[kINGRON]

vOICI LE CODE VBA A MODIFIER:


Sub Launch_Order_Dialog()
Dim XPos As Variant
Dim YPos As Variant
Dim result As Variant
Dim dOrder As Object
Set dOrder = CreateObject("REDI.ORDER")

XPos = 10
YPos = 10

dOrder.Symbol = UCase(Worksheets("OrdDlg").Cells(2, 1).Value)
dOrder.Quantity = Worksheets("OrdDlg").Cells(2, 2).Value
dOrder.Side = Worksheets("OrdDlg").Cells(2, 3).Value
dOrder.Price = Worksheets("OrdDlg").Cells(2, 4).Value
dOrder.Exchange = Worksheets("OrdDlg").Cells(2, 5).Value
dOrder.Account = Worksheets("OrdDlg").Cells(2, 6).Value
dOrder.UserID = Worksheets("OrdDlg").Cells(2, 7).Value
dOrder.PriceType = "LMT"
dOrder.TIF = "Day"
dOrder.StopPrice = 0
dOrder.Memo = "none"
dOrder.Password = Worksheets("OrdDlg").Cells(2, 8).Value
dOrder.DisplayQuantity = Worksheets("OrdDlg").Cells(2, 9).Value

result = dOrder.DisplayOrderDlg(XPos, YPos)


End Sub