VBA - Comment sauter conditionnellement une itération de boucle for

J'ai une boucle for sur un tableau. Ce que je veux faire, c'est tester une certaine condition dans la boucle et passer à l'itération suivante si c'est vrai:

For i = LBound(Schedule, 1) To UBound(Schedule, 1)
    If (Schedule(i, 1) < ReferenceDate) Then
        PrevCouponIndex = i
        Continue   '*** THIS LINE DOESN'T COMPILE, nor does "Next"
    End If
    DF = Application.Run("SomeFunction"....)
    PV = PV + (DF * Coupon / CouponFrequency)
Next

Je sais que je peux faire:

 If (Schedule(i, 1) < ReferenceDate) Then Continue For

mais je veux pouvoir enregistrer la dernière valeur de i dans la variable PrevCouponIndex.

Des idées?

Merci

Tu ne pourrais pas faire quelque chose de simple comme ça?

For i = LBound(Schedule, 1) To UBound(Schedule, 1)
  If (Schedule(i, 1) < ReferenceDate) Then
     PrevCouponIndex = i
  Else
     DF = Application.Run("SomeFunction"....)
     PV = PV + (DF * Coupon / CouponFrequency)
  End If
Next

VBA n'a pas de Continuemot clé ou tout autre mot clé équivalent pour passer immédiatement à l'itération de boucle suivante. Je suggérerais une utilisation judicieuse de Gotocomme solution de contournement, surtout s'il ne s'agit que d'un exemple artificiel et que votre vrai code est plus compliqué:

For i = LBound(Schedule, 1) To UBound(Schedule, 1)
    If (Schedule(i, 1) < ReferenceDate) Then
        PrevCouponIndex = i
        Goto NextIteration
    End If
    DF = Application.Run("SomeFunction"....)
    PV = PV + (DF * Coupon / CouponFrequency)
    '....'
    'a whole bunch of other code you are not showing us'
    '....'
    NextIteration:
Next

Si c'est vraiment tout votre code, cependant, @Brian est absolument correct. Mettez simplement une Elseclause dans votre Ifdéclaration et en avez terminé.

Vous pouvez utiliser une sorte de continueen utilisant un imbriqué Do ... Loop While False:

'This sample will output 1 and 3 only

Dim i As Integer

For i = 1 To 3: Do

    If i = 2 Then Exit Do 'Exit Do is the Continue

    Debug.Print i

Loop While False: Next i

Continue For n'est pas valide en VBA ou VB6.

À partir de cette page MSDN, il semble avoir été introduit dans VB.Net dans VS 2005./Net 2.

Comme les autres l'ont dit, il n'y a pas vraiment d'autre option que d'utiliser Gotoou un Else.

Salut, je suis également confronté à ce problème et je le résolve en utilisant l'exemple de code ci-dessous

For j = 1 To MyTemplte.Sheets.Count

       If MyTemplte.Sheets(j).Visible = 0 Then
           GoTo DoNothing        
       End If 


'process for this for loop
DoNothing:

Next j 

Essayez peut-être de mettre tout cela à la fin si et d'utiliser un autre pour ignorer le code, cela fera en sorte que vous ne puissiez pas utiliser le GoTo.

                        If 6 - ((Int_height(Int_Column - 1) - 1) + Int_direction(e, 1)) = 7 Or (Int_Column - 1) + Int_direction(e, 0) = -1 Or (Int_Column - 1) + Int_direction(e, 0) = 7 Then
                Else
                    If Grid((Int_Column - 1) + Int_direction(e, 0), 6 - ((Int_height(Int_Column - 1) - 1) + Int_direction(e, 1))) = "_" Then
                        Console.ReadLine()
                    End If
                End If