[réglé]comment faire un retour à une msgbox

comment faire un retour à une msgbox [réglé] - VB/VBA/VBS - Programmation

Marsh Posté le 11-05-2006 à 20:51:22    

:hello:  
 
par exemple:
 

Citation :

a = msgbox("aime tu les carottes?", vbyesno, "gouts" )
 
     if (a = yes) then
b = msgbox("c'est cool, si tu veux revenir clique sur réessayer", vbretry, "gouts" )
 
   if (b = retry) then

?????????????????????????


 
 
qu'est-ce que je dois mettre pour revenir à la première question (a)
 
(d'accord la question est naze mais c'est pour l'exemple)


Message édité par psymon stark le 12-05-2006 à 20:46:10
Reply

Marsh Posté le 11-05-2006 à 20:51:22   

Reply

Marsh Posté le 11-05-2006 à 22:21:30    

En appelant une étiquette

Début:
a = msgbox("aimes-tu les carottes?", vbyesno, "gouts" )  
 
if (a = vbyes) then  
    b = msgbox("c'est cool, si tu veux revenir clique sur réessayer", vbretry, "gouts" )  
   If (b = vbretry) then  
     goto Début
  End if
end if

Cordialement
Epena

Reply

Marsh Posté le 12-05-2006 à 07:44:21    

bonjour,
il vaut mieux éviter les goto...
préfère des structures de ce genre :

Code :
  1. Dim Y as boolean
  2. Do while not Y
  3. a = msgbox("aimes-tu les carottes?", vbyesno, "gouts" ) 
  4. if (a = vbyes) then 
  5.     b = msgbox("c'est cool, si tu veux revenir clique sur réessayer", vbretry, "gouts" ) 
  6. Else
  7. Y = True
  8. End if
  9. Loop


A+


Message édité par galopin01 le 12-05-2006 à 07:44:52
Reply

Marsh Posté le 12-05-2006 à 18:08:41    

merci de vos réponses mais avec epena il ne reconnait pas goto et avec avec galopin01 il ne reconait pas le as,
 
au cas je vous dit que je sauvegarde en .vbs, pitit help please...

Reply

Marsh Posté le 12-05-2006 à 18:10:30    

ah oui et il ne reconnait pas les "é" mais même en changeant ca march pas, cé à cause de ca?

Reply

Marsh Posté le 12-05-2006 à 19:24:29    

mais ca marche sans le "Dim Y as boolean"

Reply

Marsh Posté le 12-05-2006 à 20:07:53    

et............     si je veux faire plusieurs boucles.......?

Reply

Marsh Posté le 12-05-2006 à 20:45:33    

nan laissez tomber j'ai tout piger, je me suis défoncer à trouver mais j'ai réussiiiiiiiiiiiiiiiiiiiii!!!!! purée j'ai des élans de confiance en moi,
 
chu trop fort!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed