Sortir de plusieurs Do en même temps ?

FleurOrange Messages postés 1 Date d'inscription jeudi 11 octobre 2007 Statut Membre Dernière intervention 14 octobre 2008 - 14 oct. 2008 à 17:19
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 15 oct. 2008 à 08:54
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

gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 2
14 oct. 2008 à 18:08
0
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
14 oct. 2008 à 18:20
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
0
radcur Messages postés 282 Date d'inscription lundi 29 septembre 2003 Statut Membre Dernière intervention 15 août 2012 2
15 oct. 2008 à 04:09
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
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
15 oct. 2008 à 08:54
je ferais un Goto ...
0
Rejoignez-nous