Excalius
Messages postés8Date d'inscriptionsamedi 5 janvier 2008StatutMembreDernière intervention20 janvier 2008
-
6 janv. 2008 à 02:14
Excalius
Messages postés8Date d'inscriptionsamedi 5 janvier 2008StatutMembreDernière intervention20 janvier 2008
-
6 janv. 2008 à 11:35
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!
BIGDAMSBIG
Messages postés27Date d'inscriptiondimanche 3 juin 2007StatutMembreDernière intervention25 février 2008 6 janv. 2008 à 05:26
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.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 6 janv. 2008 à 07:11
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
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 6 janv. 2008 à 07:46
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 ....