Comment empecher l'enreg d'un fichier si une des cellules voulues est vide?

[ERIC]

Slts à toutes et tous,

Je cherche le moyen d'empecher l'enregistrement d'un fichier si une des cellules jugé indispensable n'est pas remplies.

Avec validation données cela n'empêche rien!

Merci d'avance pour votre aide

amicalement,

 

[@+Thierry]

Salut Eric

Un moyen très simple une macro évènementielle dans le private module "ThisWorkBook" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(1).Range("D1") = "" Then
Cancel = True
MsgBox "Fichier Non Sauvé, Cellule D1 Vide", vbCritical, "Warning"
End If
End Sub

Bonne Soirée
@+Thierry

 

[Eric]

MERCI MILLE FOIS

Bonjour et merci pour ton aide Thierry,

Après une bonne absence du à une defaillance de mon cher PC, je reviens et trouve une tres précieuse aide.

Chapeau encore et mille fois merci

 

[@+Thierry]

Re: MERCI MILLE FOIS

You are Welcome Eric !

@+Thierry