Msgbon oui non

Bonjour a tous,

j ai une petite question avec un bouton oui non, est ce qu'on saurais faire une boucle pour recommencer si on repond non, exemple :

Sub MaFonction()

        Application.Run "macro_1"

If MsgBox("lancer la macro ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then

msgbox "on lance la macro ;-)"

Application.Run "macro_2"

Else

'si on repond non, on recommence depuis le debut...

Application.Run "macro_1"

If MsgBox("lancer la macro ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then

msgbox "on lance la macro ;-)"

Application.Run "macro_2"
Else

'si on repond non, on recommence depuis le debut...

Application.Run "macro_1"

End If
End If
...
End Sub

je pourrais faire un fichier au besoin mais ccela ne me semble pas utile...

je pense qu'il faudrais faire une boucle sur la msgbox oui non, sauf que je vois pas comment faire...

merci

Salut svbb,

et comme ça?

vbYes

Plus de problèmes!!!

A+

Sub MaFonction()

debut:

If MsgBox("lancer la macro ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
    MsgBox "on lance la macro ;-)"

    Else

    GoTo debut

End If

End Sub

 

Bonjour,

Sub MaFonction()
    Do
        Application.Run "macro_1"
        If MsgBox("lancer la macro ?", vbQuestion + vbYesNo, "QUESTION ...") = vbNo Then Exit Do
        Application.Run "macro_2"
    Loop
End Sub

eric

merci beaucoup c est très bien

Programmer avec des goto est fortement déconseillé.

Ne doit être utilisé que dans le cadre des traitements d'erreur.

ok merci, j ai effectivement utiliser le go to mais il fonctionne tres bien par rapport a ce donc j ai besoin

eriiic a écrit :

Programmer avec des goto est fortement déconseillé.

Ne doit être utilisé que dans le cadre des traitements d'erreur.

Pour ma culture personnelle : Quel est le soucis avec les goto?

Pas trop envie d'entamer un débat souvent sans fin...

En résumé ça donne un code 'spaghetti' difficile à lire et à gérer, et on peut s'en passer dans 99.9% des cas avec les structures modernes.

eric