Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Boite Quitter "oui" - "non"

4 réponses
Avatar
seb
Bonjour

j'ai crée une msg box qui fait ceci :

Private Sub CommandButton7_Click()

A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC Nord&Est")
If vbYes Then
ThisWorkbook.Saved = True
Application.Quit
Else

End If


MAis seulement quand je Clic sur NON tout ce ferme, comment evité ca ?
merci

4 réponses

Avatar
OnE
A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC
Nord&Est")
If A = vbYes Then
ThisWorkbook.Saved = True
Application.Quit
End If

Bonjour

j'ai crée une msg box qui fait ceci :

Private Sub CommandButton7_Click()

A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC Nord&Est")
If vbYes Then
ThisWorkbook.Saved = True
Application.Quit
Else

End If


MAis seulement quand je Clic sur NON tout ce ferme, comment evité ca ?
merci


Avatar
Phil99999
Dim a As Boolean

a = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC Nord&Est")
If a = vbYes Then
ThisWorkbook.Saved = True
Application.Quit
End If



Bonjour

j'ai crée une msg box qui fait ceci :

Private Sub CommandButton7_Click()

A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC Nord&Est")
If vbYes Then
ThisWorkbook.Saved = True
Application.Quit
Else

End If


MAis seulement quand je Clic sur NON tout ce ferme, comment evité ca ?
merci


Avatar
anonymousA
Bonjour,

If MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC
Nord&Est")=vbYes Then
ThisWorkbook.Saved = True
Application.Quit
End If

A+


Bonjour

j'ai crée une msg box qui fait ceci :

Private Sub CommandButton7_Click()

A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC Nord&Est")
If vbYes Then
ThisWorkbook.Saved = True
Application.Quit
Else

End If


MAis seulement quand je Clic sur NON tout ce ferme, comment evité ca ?
merci


Avatar
seb
Merci bien
il manquait pas grand chose mais ca suffit pour faire foiré le truc......

encore merci


A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC
Nord&Est")
If A = vbYes Then
ThisWorkbook.Saved = True
Application.Quit
End If

Bonjour

j'ai crée une msg box qui fait ceci :

Private Sub CommandButton7_Click()

A = MsgBox("Etes vous sur de vouloir quitter ? ", vbYesNo, "CEGELEC Nord&Est")
If vbYes Then
ThisWorkbook.Saved = True
Application.Quit
Else

End If


MAis seulement quand je Clic sur NON tout ce ferme, comment evité ca ?
merci