Empêcher le classeur d'être fermé tant que...

tototiti2008

XLDnaute Barbatruc

• 6 Mai 2010

• #2

Re : Empêcher le classeur d'être fermé tant que...

Bonjour Elisa,

Oui, en effet avec Workbook_Beforeclose
tu fais ton test et si ta condition n'est pas remplie, tu fais passer Cancel à True

 

Vote positif 0 Vote négatif

E

elisa27

Guest

• 6 Mai 2010

• #3

Re : Empêcher le classeur d'être fermé tant que...

Merci tototiti j'ai bien compris le principe mais par contre je ne vois pas ce que je fais passer de Cancel à True. Est ce que ce serait Workbook BeforeClose(True) ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Mai 2010

• #4

Re : Empêcher le classeur d'être fermé tant que...

Bonjour le fil, bonjour le forum,

Arf Tototiti est trop rapide... j'avais préparé un exemple, regarde :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Feuil1").Range("A1") = "" Then
    MsgBox "Vous devez remplir la cellule A1 !"
    Cancel = True
End If
End Sub

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Mai 2010

• #5

Re : Empêcher le classeur d'être fermé tant que...

Re,

un exemple

ça marche évidement seulement si on a activé les macros et qu'on ne peut pas arrêter l'exécution des macros...

Edit : Bing, Bonjour Robert 😉

 

Pièces jointes

• Classeur1.xls

  17.5 KB · Affichages: 52
• Classeur1.xls

  17.5 KB · Affichages: 49
• Classeur1.xls

  17.5 KB · Affichages: 49

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Mai 2010

• #6

Re : Empêcher le classeur d'être fermé tant que...

Bonjour le fil, bonjour le forum,

Mort de rire Tototiti les exemples sont identiques...! Ne dit-on pas que les grands esprit se rencontrent ha ha ha...

Édition :

En plus je viens de tester et il y a un big bug dans notre proposition. Si on remplit la cellule et on ferme (sans sauver). Un message nous demande si on veut sauver. Si on répond "non" le classeur se ferme quand même mais quand on le rouvre la cellule est vide. Je ne pense pas que ce soit ce que veut Elisa. Donc il nous faut revoir notre copie...

 

Dernière édition: 6 Mai 2010

Vote positif 0 Vote négatif

E

elisa27

Guest

• 6 Mai 2010

• #7

Re : Empêcher le classeur d'être fermé tant que...

Merci à tous les 2 j'ai bien compris maintenant.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Mai 2010

• #8

Re : Empêcher le classeur d'être fermé tant que...

Re,

en effet, pas super nos 2 exemples 😉

je pense qu'un else dans le if qui sauve le classeur est indispensable

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Feuil1").Range("A1") = "" Then
    MsgBox "Vous devez remplir la cellule A1 !"
    Cancel = True
Else
Thisworkbook.save
End If
End Sub

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Mai 2010

• #9

Re : Empêcher le classeur d'être fermé tant que...

Bonjour le fil, bonjour le forum,

Bien vu !!!! Je me cassais la tête sans solution....

 

Vote positif 0 Vote négatif