Message à la fermeture classeur si...

[DAVID P]

Bonsoir le forum,

je me permets encore une fois de vous solliciter afin de résoudre un problème.


Je cherche une macro qui m'affichera un message à la fermeture d'un classeur si une cellule n'est pas remplie.

Dans l'exemple en annexe ,je dispose de 2 cellules (colorée en jaune) à surveiller sur 3 feuilles différentes dans un seul classeur


l'idéale serait de pouvoir personnaliser le message en fonction de la cellule non pleine.


Si quelqu'un peut me donner une piste .....


je vous remercie pour votre aide

Bonne nuit



[file name=testreponse.zip size=1657]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testreponse.zip[/file]

 

[excalibur]

bonsoir david si j ai bien compris Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets('feuil1').[b3].Value = '' Or Worksheets('feuil1').[b5].Value = '' Then
MsgBox 'attention feuil1 b3 ou b5 nom renseigne...'
End If
If Worksheets('feuil2').[b1].Value = '' Or Worksheets('feuil2').[b3].Value = '' Then
MsgBox 'attention feuil2 b1 ou b3 nom renseigne...'
End If
If Worksheets('feuil3').[b1].Value = '' Or Worksheets('feuil3').[b3].Value = '' Then
MsgBox 'attention feuil3 b5 ou b7 nom renseigne...'
End If
End Sub 'salutations a adapter

 

[CBernardT]

Bonsoir David P et Excalibur,

Une approche semblable, la macro est à placer dans le module Thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets('Feuil1').Range('B3') = '' Then MsgBox 'Le nom est absent !'
If Sheets('Feuil1').Range('B5') = '' Then MsgBox 'Le prénom est absent !'
If Sheets('Feuil2').Range('B1') = '' Then MsgBox 'Le CA est absent !'
If Sheets('Feuil2').Range('B3') = '' Then MsgBox 'La marge est absent !'
If Sheets('Feuil3').Range('B5') = '' Then MsgBox 'La dimension est absente !'
If Sheets('Feuil3').Range('B7') = '' Then MsgBox 'La hauteur est absente !'
End Sub

Cordialement

Bernard

 

[DAVID P]

Un grand merci à Excalibur et Bernard


Vous m'enlevez une épigne du pied.


Merci pour votre rapidité et votre gentillesse






Je vais mettre tout cela en application dés demain



Bonne nuit à tous