Code Beforesave

Bonjour, je cherche le code précis (via BEFORESAVE ?) pour empêcher l'enregistrement de mon fichier Excel si les cellules C3 et C4 sont vides (par exemple). Si ces deux cellules sont vides le fichier ne doit donc pas pouvoir s'enregistrer et un message du type: "Merci de compléter les champs obligatoires" doit s'afficher pour l'utilisateur. Merci.

Bonsoir MarcDU

Voici, pas très compliqué

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("MaFeuille")
      If .Range("C3") = "" And .Range("C4") = "" Then
        MsgBox "Merci de compléter les champs obligatoires en C3 et C4 SVP", vbCritical, "OUPS..."
        Cancel = True
      End If
    End With
End Sub

A+

Bonjour BrunoM45 et merci beaucoup, cela fonctionne !

Rechercher des sujets similaires à "code beforesave"