procédure avant fermeture fichier

[bidule]

Bonjour,
J'ai chercher dans les messages déjà édités mais j'ai rien trouvé....
Mon pb : je voudrais que quand la personne ferme son fichier excel un message apparaisse si telle cellule est toujours vide (car elle doit obligatoirement remplir cette cellule)

Je me suis donc mis dans Workbook avec l'evenement beforclose.

Le pb vient de mon code :
If Sheets('01-Indicateur fonct.').Range('A37:N37').Value = '' Then
Msg = 'vous n'avez pas rempli l'indicateur fonctionnement'
End If
End Sub

 

[Jacques87]

Bonjour

J'ai bien l'impression que ton erreur vient du fait que tu demandes le conteneu d'un groupe de cellule
If Sheets('01-Indicateur fonct.').Range('A37:N37').Value = '' Then

essaie :
plage = Sheets('01-Indicateur fonct.').Range('A37:N37')
For each cel in plage
If cel.Value ='' Then

ce code émettra un message dès que cellule de la plage sera vide

Bon courage

 

[justine]

bonjour, jacques87, bidule, le forum.
le mieux, pour tester ta plage de cellule avant la fermeture de ton fichier est de mettre la formule de jacques87 dans thisworkbook, Private Sub Workbook_BeforeClose(Cancel As Boolean).

bonne continuation
justine

 

[bidule]

Jacques87
Je vais essayer ton code (j'espère qu'il m'ira) mais je précise que la cellule à verifier (si vide ou non) est une cellule fusionnée qui va de A37 à N37.
J'avais essayé de ne mettre que A37 mais dans ce cas là je n'ai aucune fenêtre qui s'ouvre avant la fermeture du fichier.

Merci Justine c'est bien l'endroit où j'avais mis le code mais pour l'instant ce code est faux....

 

[justine]

rebonjour
oups desolée, j'ai du sauter la ligne.

 

[bidule]

ne soit pas désolée, c'est déjà gentil d'essayer de répondre à mon pb....