Loop

Signaler
Messages postés
8
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
20 janvier 2008
-
Messages postés
8
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
20 janvier 2008
-
Bonjour à tous,

mon programme est presque bouclé mais je n'arrive pas à terminer la dernière loop (quelle incroyable ironie). Le voici

Dim ext As String
        ext = "non"

        Do

bla bla bla

  ext = InputBox("Sommes nous arrivés à destination? Si oui appuyez tapez oui, sinon tapez non")

Loop While ext = "non"

quand je tapes "oui" à l'invite, il continue la boucle à l'infini. Qu'est ce qu'il foire, y a-t-il moyen de le faire avec une autre boucle qui marchera mieux? Je suis un vrai bidouilleur, donc c'est pour du quick and dirty!

Un super grand merci pour votre aide!

Excalius

4 réponses

Messages postés
27
Date d'inscription
dimanche 3 juin 2007
Statut
Membre
Dernière intervention
25 février 2008

salut excalius....mordicus

quickies and dirties bad news for you.

salut j'ai essayé ton code sans les blablas
et je sortais de ta boucle infernale ?

essaye mais c'est pareils hélas !

private sub boucle_sansfin()
Dim ext As String
ext = "non"
Do While ext = "non"
ext = InputBox("Sommes nous arrivés à destination? Si oui appuyez tapez oui ou autre, sinon tapez non")
'tu peux rajouter un code de comparaison ici
loop
MsgBox "destination enfin finis,ca aura été long", vbExclamation + vbOKOnly

end sub

compare la chaine "non" avec ext obtenu avec le message box
avant ton loop pour etre certain.

enfin mes conseils ne valent rien car je débute
d'autres t'aiderons certainement.

salut
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
salut,

msgbox est paramétrable avec des boutons oui non, pourquoi passer par l'obligation de saisie "OUI NON" ?
sans compter qu'il faut contrôler la casse, les espaces en trop, que s'il y a une erreur de saisie ton code (blabla) se ré-execute alors qu'il n'aurait peut-être pas fallut...

    Do
        'bla bla bla

    Loop Until MsgBox("Sommes-nous arrivés à
destination?", vbQuestion + vbYesNo) = vbYes

++
PCPT [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Bonjour,


Moi, ce que je comprends pas, c'est la philosophie même d'in message (inputbox ou msgbox, peu importe...) qui boucle tant que la réponse n'est pas positive.... ce qui revient à forcer à répondre positivement à une question. Pourquoi la poser, alors ?
Il devrait y avoir 2 sorties (une si oui et l'autre si non) permettant de quitter en exécutant des blocs différents en fonction de la réponse  ....
Messages postés
8
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
20 janvier 2008

Purée les gars,

un super grand merci! Quel forum actif, c'est chouette de voir des passionnés. Je vais tenter la msgbox avec des boutons, et on verra.

Je reviens vers vous pour vous dire quoi!

A bientôt

Excalius