|
|
|
|
Bonjour lie,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Feuil1").Range("A1").Value = "" _
Or Sheets("Feuil1").Range("A2").Value = "" Then
MsgBox "Saisie incomplète"
Cancel = True
End If
End SubDe cette façon, il est impossible de quitter le classeur tant que les cellules en question sont vides...
|