avec un Msgbox, comment ouvrir une feuille si oui et exit sub si non?

[Paritec]

Bonjour le forum,
j'ai une question qui vous paraitra peutr être idiote mais je n'ai jamais utilisé de Msgbox avec réponse oui non et je ne sais pas comment finir mon code ci-dessous.

MsgBox "Voulez vous ouvrir?", vbYesNo, "Question"
Si oui : ouvrir feuille 6
si non: Go to Fin

Merci d'avance de vos réponses
a+
Papou

 

[youky(BJ)]

Re : avec un Msgbox, comment ouvrir une feuille si oui et exit sub si non?

Bonjour Papou,

If MsgBox("Voulez-Vous ouvrir", vbYesNo + vbExclamation, "Question")=VbNo Then Exit Sub
ou bien ......=VbYes Then
blablabla
End if

 

[Paritec]

Re : avec un Msgbox, comment ouvrir une feuille si oui et exit sub si non?

Merci Youki le forum,
j'essaye de suite et je te dis quoi
a+
papou

 

[bérylion]

Re : avec un Msgbox, comment ouvrir une feuille si oui et exit sub si non?

Salut

tu peux essayer comme ça :

Sub test()
Y = MsgBox("Voulez vous ouvrir?", vbYesNo, "Question")
Select Case Y
    Case vbYes
        Sheets(1).Activate
    Case vbNo
        GoTo fin
End Select

fin:

End Sub

😉

 

[Paritec]

Re : avec un Msgbox, comment ouvrir une feuille si oui et exit sub si non?

Bonsoir Bérilyon ,Youky, le forum
parfait merci c'est tout bon
a+
bon long week-end
Papou