Sortir de plusieurs Do en même temps ?

Signaler
Messages postés
1
Date d'inscription
jeudi 11 octobre 2007
Statut
Membre
Dernière intervention
14 octobre 2008
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Question comme ça, j'ai du modifier mon code mais l'idée m'est restée en tête :


Est-il possible de sortir de plusieurs DO en même temp (ici c'est du VBA Excel)


Do
    Do
        Do

            If .... then Exit Do   'mais sortir de tous les Do en même temps avec une petite vite ?

        loop
  loop
loop


Bonne journée @ tous

4 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Exit sub, en effet, si tu ne dois rien faire d'autre après, dans ta procédure ...
Dans le cas contraire (continuation de procédure) , invente quelque chose du genre

Dim toto as boolean
toto = true
Do while toto
    Do while toto
        Do while toto
            If .... then toto = false
        loop
  loop
loop
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
salut

moi j'utiliserais une variable "flag" que tu vérifie dans chaque boucle

dim flag_sortie as boolean
flag_sortie = false

Do
    Do
        Do

            If .... then
                 flag_sortie=True
                 Exit Do    ' je sors de cette boucle
            end if
        loop
        'Tu peux mettre du code pour effectuer d'autres actions avant de quitter      

       if flag_sortie then Exit Do  '  Je sors de cette boucle
   loop

   if flag_sortie then Exit Do  '  Je sors de cette boucle

loop
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
je ferais un Goto ...