MsgBox Yes/No

Bonjour à tous,

j'ai un petit soucis avec mon MsgBox Yes/No !

J'aimerais que si je clique sur Oui, le message " Vrai" apparaisse, et que si je clique sur Non j'aimerais que le message "Faux" apparaisse.

Voici mon code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

MsgBox ("la valeure :") & Range("B3") & (" est supérieure à :") & Range("B4")

Etat = MsgBox("Penses-tu que c'est vrai ?", vbYesNo + vbCritical)

If reponse = vbYes Then

MsgBox ("VRAI")

If reponse = vbNo Then

MsgBox ("FAUX")

End If

End If

End Sub

bonjour,

essaie ceci

MsgBox ("la valeur :") & Range("B3") & (" est supérieure à :") & Range("B4")
reponse = MsgBox("Penses-tu que ce soit vrai ?", vbYesNo + vbCritical)
If reponse = vbYes Then
MsgBox ("VRAI")
If reponse = vbNo Then
MsgBox ("FAUX")
End If
End If

ton erreur : tu mets le résultat de ta msgbox dans etat, mais tu testes le contenu de réponse.

Merci de ta réponse H2so4,

Malheuresement cela ne marche pas, lorsque l'on clique sur "non", rien ne se passe

(En revanche lorsque l'on clique sur "oui" ça marche).

Bien à toi,

Superman96

bonjour,

revoit tes IF ... END_IF ....

tu as "imbriqué" tes if/endif ... tu n'effectue le test if vbNo... que dans le cas ou le premier test If vbYes et bon ....

revoient donc la position de tes end if..

si tu pensais à tabuler ton code ces erreurs seraient plus visibles..

réponse:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

MsgBox ("la valeur :") & Range("B3") & (" est supérieure à :") & Range("B4")

reponse = MsgBox("Penses-tu que ce soit vrai ?", vbYesNo + vbCritical)

If reponse = vbYes Then

MsgBox ("Vrai")

End If

If reponse = vbNo Then

MsgBox ("Faux")

End If

End Sub