Boucle For Equivalent de l instruction continue

**torquemada** · 11/11/2014, 22h39

Bonjour à tous
Je cherche en VBA un équivalent de l'instruction "continue for "du basic.

Dans une boucle for je fais un test .Si ce test est positif on n'exécute pas les autres instructions contenues dans la boucle mais par contre on incrémente (on passe au next suivant).
Il ne s'agit donc pas d'un exit for.

En vous remerciant de m'avoir consacré de votre temps

**clementmarcotte** · 11/11/2014, 23h48

Bonjour,

Envoyé par torquemada

Bonjour à tous
Je cherche en VBA un équivalent de l'instruction "continue for "du basic.

Ah oui ? Dans quel BASIC as-tu vi cela ? Cela doit bien faire 30 ans que je programme en BASIC et je n'ai jamais vu cela.

Dans une boucle for je fais un test .Si ce test est positif on n'exécute pas les autres instructions contenues dans la boucle mais par contre on incrémente (on passe au next suivant).
Il ne s'agit donc pas d'un exit for.

En vous remerciant de m'avoir consacré de votre temps

Si tu programmes ton IF - Then - Else pour qu'il n'exécute que les résultats négatifs, il va se rendre tout bonnement au Next, sans rien faire. Ou si tu veux absolument garder ton instruction exotique, tu peux patenter quelque chose du genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub OpérationExotique()
   Dim a as integer
   Dim b as integer
   a = 5
   b = 1
   for i = 1 to 20
      if a>b then
         goto unpeuplus
      else
         b= 165
      end if
:unpeuplus
   next
end sub

Mais, cela donne la même chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub OpérationExotique1()
   Dim a as integer
   Dim b as integer
   a = 5
   b = 1
   for i = 1 to 20
      if b < a  then
            b= 165
      end if
   next
end sub