Excel

Bonjour Catherine,

Tu peux essayer ceci :

Copie ceci dans le ThisWorkbook de ton classeur.

Dans la procédure, tu dois cependant adapter le nom de la feuille et l'adresse des cellules à renseigner dans ton
application

'---------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rg As Range
With Worksheets("Feuil1") 'A définir
Set Rg = .Range("A1,B5:B6,G10") 'A définir
End With
For Each c In Rg
If IsEmpty(c) Then
Cancel = True
Message = Message & "La cellule " & _
c.Parent.Name & "!" & c.Address(0, 0) & vbCrLf
End If
Next
If Message <> "" Then
MsgBox "Ces cellules ne sont pas renseignées." _
& vbCrLf & vbCrLf & Message, _
vbCritical + vbOKOnly, "Sauvegarde annulée"
End If

End Sub
'---------------------------


Salutations!



"catherine" <cath@no-log.org> a écrit dans le message de news:uWCEvo6tEHA.2820@TK2MSFTNGP15.phx.gbl...
Bonjour,

J'aimerai savoir comment empêcher la sauvegarde d'un fichier
tant que des cellules n'ont pas été renseignées ?

Merci pour votre aide

Cordialement

Catherine