Message à la fermeture classeur si...

DAVID P · 18 Octobre 2005

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 · 19 Octobre 2005

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 · 19 Octobre 2005

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 · 19 Octobre 2005

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

Message à la fermeture classeur si...

DAVID P

Guest

Pièces jointes

excalibur

XLDnaute Impliqué

CBernardT

XLDnaute Barbatruc

DAVID P

Guest

Discussions similaires