Bloquer la fermeture du fichier si certaines cellules sont vides

[alexane]

Bonjour,
Je cherche à créer une procédure qui empêche la fermeture du fichier si certaines cellules sont vides
J'ai donc fait une procédure evenementielle BeforeClose avec instructions conditionnelles pour tester mes valeurs:

For Each cell In maplage
If cell.Value = "" Then
MsgBox "compléter"
cell.Select

End If
Next

Mon problème : J'ai bien le message qui s'affiche la cellule "coupable" qui est sélectionnée mais après, je sors de la procédure et le fichier se ferme. Comment faire pour bloquer la fermeture ?
Merci

 

[mromain]

Re : Bloquer la fermeture du fichier si certaines cellules sont vides

bonjour alexane,

essaye en rajoutant Cancel = True à la fin de ta macro.

a+


edit: il faut le mettre avant le End If, sinon le classeur ne se fermera jamais.

 

[alexane]

Re : Bloquer la fermeture du fichier si certaines cellules sont vides

Merci beaucoup, ça marche parfaitement.
Je suppose que ça marche pour sortir de n'importe quelle procédure évenementielle sans l'executer ?
A +

 

[mromain]

Re : Bloquer la fermeture du fichier si certaines cellules sont vides

Merci beaucoup, ça marche parfaitement.
Je suppose que ça marche pour sortir de n'importe quelle procédure évenementielle sans l'executer ?
A +

re bonjour.

cela ne marche que pour certaines procédures.
pour le savoir, vérifier si Cancel est passé dans les paramètres de la procédure

Private Sub Workbook_BeforeClose([B]Cancel As Boolean[/B])

a+