Commande de verification "IF"

Bonsoir le forum,

J’essaie de faire une macro qui consiste à détecter le mot YES & NO dans une cellule

Dès que le mot NO apparait dans la cellule, la macro exécute un message pour poser une question en proposant oui ou non.

Un clic sur non, stoppe la macro, un clic sur oui exécute le message 1 ( ou autre code)

Dès que le mot YES apparait, il exécute le message 1 sans poser la question (ou autre code)

J’ai bien tenté de le faire, mais.

La seule fonction qui fonctionne c’est le non.

Je ne comprend pourquoi cela ne veut pas fonctionner.

Il y a-t-il une personne qui pourrait m’expliquer ?

Bonsoir,

Essaie comme cela

Sub check()
Dim verif As Integer
    Application.ScreenUpdating = False
    If [D4] = "NO" Then
        verif = MsgBox("Êtes-vous certain de votre choix ", vbYesNo)
        If verif = vbNo Then Exit Sub
    End If
    MsgBox "message 1"
End Sub

A+

Bonsoir frangy,

Merci pour ta réponse qui fonctionne très bien.

Cependant,

J’avoue ne pas trop comprendre pourquoi ton code fonctionne et pas le mien.

Peux-tu m’expliquer s’il te plait.

En indentant correctement ton code, tu t’aperçois que seule la condition "NO" est prise en compte.

Sub check()
Dim verif As Integer
    Application.ScreenUpdating = False
    If [D4] = "NO" Then
        verif = MsgBox("Êtes-vous certain de votre choix ", vbYesNo)
        If verif = vbNo Then
            Exit Sub
        Else
            If [D4] = "YES" Then
                MsgBox "message 1"
            End If
        End If
    End If
End Sub

A+

J’ai compris en partie

Merci beaucoup pour ton aide.