URGENT - Macro a debuger

[roni]

Voici une macro qui active desordres d une platforme de trading. Je souhaiterais savoir comment puis je la debugger car celle n execute que la ligne et non les ligne de J2 a J12

ps: je pense que les deux fonctions "SI" sont mal liees.


Merci beaucoup

Roni

Private Sub CommandButton1_Click()
Dim XPos As Variant
Dim YPos As Variant
Dim result As Variant
Dim dOrder As Object
Dim I As Integer

Set dOrder = CreateObject("REDI.ORDER")

XPos = 10
YPos = 10

For J = 2 To 12
If Worksheets("OrdDlg").Cells(J, 5) = "SIGMA" Then
dOrder.Symbol = UCase(Worksheets("OrdDlg").Cells(J, 1).Value)
dOrder.Quantity = Worksheets("OrdDlg").Cells(J, 2).Value
dOrder.Side = Worksheets("OrdDlg").Cells(J, 3).Value
dOrder.Price = Worksheets("OrdDlg").Cells(J, 4).Value
dOrder.Exchange = Worksheets("OrdDlg").Cells(J, 5).Value
dOrder.Account = Worksheets("OrdDlg").Cells(J, 6).Value
dOrder.UserID = Worksheets("OrdDlg").Cells(J, 7).Value
dOrder.PriceType = "Smart Limit"
dOrder.TIF = "Day"
dOrder.StopPrice = 0
dOrder.Memo = "none"
dOrder.Password = Worksheets("OrdDlg").Cells(J, 8).Value
dOrder.DisplayQuantity = Worksheets("OrdDlg").Cells(J, 9).Value
result = dOrder.DisplayOrderDlg(XPos, YPos)
End If
Next
For J = 2 To 12
If Worksheets("OrdDlg").Cells(J, 5) = "INCA" Then
dOrder.Symbol = UCase(Worksheets("OrdDlg").Cells(J, 1).Value)
dOrder.Quantity = Worksheets("OrdDlg").Cells(J, 2).Value
dOrder.Side = Worksheets("OrdDlg").Cells(J, 3).Value
dOrder.Price = Worksheets("OrdDlg").Cells(J, 4).Value
dOrder.Exchange = Worksheets("OrdDlg").Cells(J, 5).Value
dOrder.Account = Worksheets("OrdDlg").Cells(J, 6).Value
dOrder.UserID = Worksheets("OrdDlg").Cells(J, 7).Value
dOrder.PriceType = "Limit"
dOrder.TIF = "COR"
dOrder.StopPrice = 0
dOrder.Memo = "none"
dOrder.Password = Worksheets("OrdDlg").Cells(J, 8).Value
dOrder.DisplayQuantity = Worksheets("OrdDlg").Cells(J, 9).Value
result = dOrder.DisplayOrderDlg(XPos, YPos)
End If
Next


End Sub

 

[Temjeh]

A-tu un plumeau??

Car si tu ne li pas la charte avant le poster une question, par expérience sur ce site ton message va avoir de la poussière avant que tu recoives une réponse!!

A+

Temjeh

 

[Pascal76]

LOL Temjeh

Regarde qui se réjouit déjà :




Pascal

 

[Temjeh]

Merci Pascal
Un peu de discipline ici faerais du bien

Aussi très beau gif
Même les araignées se réjouissent!!!!!!!!!!!!!!!!!

A+

Temjeh

 

[roni]

Hello,
je comprends pas trop vos messages. Petre etre peut on m expliquer plus clairement.

Merci

 

[Pascal76]

Re

Puisque tu n'as pas compris la remarque de Temjeh je t'explique.

Ce forum contient une charte (Charte XLD) que tu devrais lire c'est toujours très intéressant. Des idées de la charte ont été ajoutées par David le Webmaster pour éviter les oublis.

Je t'en cite 2

1 - A coté du sujet il est marqué : "Evitez "URGENT" et soyez explicite" ===> regarde ton titre

- En bas il est noté : "Même sur Internet l'usage des formules de politesse "BONJOUR" et "MERCI" est de rigueur lorsque l'on souhaite se faire aider. " ==> Regarde le début de ton post.

Alors comme les habitués ici sont assez "pointilleux" sur ce genre de détails importants de savoir-vivre et ne répondent pas à ces posts voilà pourquoi Temjeh te dit que tu vas avoir de la poussière.

Bonne journée

Pascal