code avec IF

[ktran]

Hello le forum,

l'idee est que la macro verifie s il y a une information dans chaque cellule de la colonne 10. si pas d information, alors la macro s arrete.

il ne peut y avoir comme information que Call ou Put.

si la macro voit dans chaque cellule de la colonne 10, "Call" alors execution de la formule Call si voit "Put" alors execution de la formule "Put"

ex : if A2 = "Call",deltac(A3;A4;A5),deltap(A3;A4;A5)

voici mon code mais ca bug :

Sub hedge()
Dim N As Byte

Do Until Cells(N, 10) = ""
N = N + 1
IF(cells (N,10)= "CALL",deltac(cells(6,11), cells(6,12), cells (6,14), cells (6,15), cells (6,13)),deltap(cells(6,11), cells(6,12), cells (6,14), cells (6,15), cells (6,13))
Loop
End Sub

 

[ROGER2327]

Re : code avec IF

Bonjour ktran

Une structure de ce genre, peut-être ?

[COLOR="DarkSlateGray"]Sub arbitrer() [COLOR="SeaGreen"]'C'est mieux sur un site francophone.[/COLOR]
Dim n As Long
   Do Until Cells(n, 10) = ""
      n = n + 1
      Select Case Cells(n, 10).Value
         Case "CALL"
            [COLOR="SeaGreen"]'le code associé à "CALL".[/COLOR]
         Case "PUT"
            [COLOR="SeaGreen"]'le code associé à "PUT".[/COLOR]
         Case Else
            [COLOR="SeaGreen"]'rien si on est vraiment sûr de ne rien trouver _
            d'autre que "", "CALL", "PUT" dans la colonne 10.[/COLOR]
      End Select
   Loop
End Sub[/COLOR]

ROGER2327
#1913