Compléter code VBA

Bonjour à tous,

J'ai un msg à la fermeture de mon fichier, mais ce code est incomplet

Si la réponse est non, le fichier doit rester ouvert.sinon il se ferme

pouvez-vous me le compléter SVP.?

Un grand merci

Pierrot

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim msg As String
    Dim Réponse As Integer
    msg = "Avez-vous complété les cellules grisées ?"
    Réponse = MsgBox(msg, vbYesNo)
    If Réponse = vbYes Then
    End If

    ThisWorkbook.Save

Hello,

Pris comme ça, ça passera :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim msg As String
    Dim Réponse As Integer
    msg = "Avez-vous complété les cellules grisées ?"
    Réponse = MsgBox(msg, vbYesNo)
    If Réponse = vbNo Then
    Cancel = True
    Else
    End If

    ThisWorkbook.Save
End Sub

Bonjour, waard

C'est parfait , de plus ça fonctionne , génial

Merci beaucoup

Bon week-end

Pierrot