changement de sens de boucle si condition remplie

Question

Je suis en train de faire une boucle qui passera par étapes si ZuluLY> ZuluTY et inverse par étapes si Zulu < ZuluTY

Je continue à obtenir la « autre sans se » erreur de compilation lorsque je tente ce. La boucle fonctionne correctement sans le conditionnement de l'instruction IF, mais lorsque j'ajoute l'instruction IF, j'obtiens l'erreur.

Voici un extrait de code montrant ce que j'ai essayé

If ZuluLY > ZuluTY Then 
For yr = LBound(Year_Arr) To UBound(Year_Arr) 
ElseIf ZuluLY < ZuluTY Then 
For yr = UBound(Year_Arr) To LBound(Year_Arr) Step -1 
End If 
'..... code 

Answer 1

Dim vStart, vEnd, vStep 

If ZuluLY > ZuluTY Then 
    vStart = LBound(Year_Arr) 
    vEnd = UBound(Year_Arr) 
    vStep = 1 
else 
    vStart = UBound(Year_Arr) 
    vEnd = LBound(Year_Arr) 
    vStep = -1 
end if 


For yr = vStart To vEnd Step vStep