Salut le forum
Pour te répondre rapidement sans savoir les cellules à vérifiées.
Interdire la sauvegarde si A2 pas remplie
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A2").Value <> "" Then
ActiveWorkbook.SaveAs Filename:="C:\transit\essai.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Else
MsgBox "La cellule A2 est vide"
Exit Sub
End If
End Sub
Message cellule A2 vide
If Not Application.Intersect(Target, [A2]) Is Nothing Then
If Target = "" Then
MsgBox "Information manquante", vbCritical, "ATTENTION"
End If
End If
Mytå