[AC-2003] Boucle DO, incrementation si condition pas respectée [Résolu]

[jubourbon]

Bonjour,

J'ai une boucle Do... Loop dans mon code, et je souhaiterais que lorsque une condition n'est pas respecté je revienne au do.
Voici le code

Code :

1
2
3
4
5
6
7
8
 
Do Until iCOunt<=52
If maFonctionExterne()=false Then
iCount=iCOunt+1
Else
'Ici je souhaiterais retourner au Do
End If
Loop

J'ai essayé un Loop, un Next mais il ne veut pas. Quelqu'un à une idée.

D'avance merci.

[marot_r]

Qu'entends-tu par revenir au Do ? Avec ton code actuel c'est déjà ce que tu fais.

Veux-tu reinitialiser la valeur de iCOunt ? Réévaluer la condition ? Ne rien faire dans le else sous condition ?

A+

[jubourbon]

Oui désolé en relisant mon code je vois qu'il manque une partie importante

Le voici:

Code :

1
2
3
4
5
6
7
8
9
 
Do Until iCOunt<=52
If maFonctionExterne()=false Then
iCount=iCOunt+1
Else
'Ici je souhaiterais retourner au Do
End If
'Ici j'ai du code que je ne souhaite pas exécuter si je passe dans le else
Loop

Par conséquent, je ne souhaite pas exécuter le code après le if si je passe dans le else et revenir au do.
Je pourrait mettre un boolean, mais n'y a t il pas une instruction pour cela?

[marot_r]

Code :

1
2
3
4
5
6
7
8
9
10
11
Do Until iCOunt<=52
 
   If maFonctionExterne()=false Then
       iCount=iCOunt+1
       'Ici j'ai du code que je ne souhaite pas exécuter si je passe dans le else
     Else
       'Ici je souhaiterais retourner au Do
       'Ne rien faire
   End If
 
Loop

ou

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Do Until iCOunt<=52
 
   If maFonctionExterne()=false Then
       iCount=iCOunt+1
     Else
       'Ici je souhaiterais retourner au Do
       'Ne rien faire
   End If
 
   If maFonctionExterne()=false Then
       'Ici j'ai du code que je ne souhaite pas exécuter si je passe dans le else
   end if
 
Loop

Enfin la moins recommandée des solutions

Code :

1
2
3
4
5
6
7
8
9
10
11
Do Until iCOunt<=52
    If maFonctionExterne()=false Then
        iCount=iCOunt+1
       Else
         goto ProchainPas
     End If
 
     'Ici j'ai du code que je ne souhaite pas exécuter si je passe dans le else
 
:ProchainPas
Loop