code avec IF

ktran · 19 Octobre 2009

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 · 19 Octobre 2009

Re : code avec IF

Bonjour ktran

Une structure de ce genre, peut-être ?

Code:

[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

code avec IF

ktran

Guest

ROGER2327

XLDnaute Barbatruc

Discussions similaires

code avec IF

ktran

Guest

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency