Discussion :

[ThSPB]

Bonjour
Mon soucis
Avant la fermeture du fichier je souhaite;
1) faire apparaitre un message si la valeur de la cellule L2 de la feuille1 est supérieure à 0 (indice d'anomalie dans le renseignement du fichier),
2) empécher la fermeture.
Si la valeur de la cellule est égale à 0 alors le fichier peut se fermer

j'ai essayé BeforeClose mais sans succès, je bute sur la syntaxe sur l'adresse de la cellule

merci de votre aide

[Theze]

Bonjour,

Teste avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    If Worksheets("Feuil1").Range("L2").Value <> 0 Then
 
        MsgBox "indice d'anomalie dans le renseignement du fichier !"
        Cancel = True
 
    End If
 
End Sub

Hervé.

[ThSPB]

Merci,
Ca fonctionne, je viens de voir qu'il s'agissait d'une cellule fusionnée, et dans ce cas là la macro se plante

merci de ton aide