Problème Workbook_BeforeClose

[Lardecho]

Bonjour chers amis,

Voilà j'ai un gros soucis avec mon fichier Excel, ce dernier contient plusieurs feuille de travail dont la 1ere est une feuille d'accueil où l'on effectue des recherches.
Je désire à la fin et à la fermeture du fichier que certaines cellules de la feuil1 soit effacées (leur contenu est supprimé).
J'ai donc placé le code VBA ci-dessous dans la feuille VBA "ThisWorkbook":

Private Sub Worksheet_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Range("B30").ClearContents
Range("B37:T80").ClearContents
Application.DisplayAlerts = True
End Sub

Le problème comme vous devez le voir est que peut importe la feuille où l'on se situe lors de la fermeture du fichier, il supprime les sélections indiquées de la feuille active, or moi je désirerai qu'il n'efface le contenu que sur la feuil1 même si on n'est pas sur cette dernière à la fermeture du fichier.

Je pense et j'espère m'être fait compris...
Si vous pouvez me détaillé le code à placer car le code présenté, même un peu bidouillé et placé dans la fiche VBA "Feuil1" correspondante, il ne marche pas... =(

Cordialement.

 

[Pierrot93]

Re : Problème Workbook_BeforeClose

Bonjour,

modifie comme suit :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("B30,B37:T80").ClearContents
End Sub

bonne journée
@+

 

[Lardecho]

Re : Problème Workbook_BeforeClose

Nikel merci beaucoup !

Du coup il faut quand même resté sur ThisWorkbook mais il faut spécifier ta feuille...
Merci pour ta solution ! =)
A+

 

[Pierrot93]

Re : Problème Workbook_BeforeClose

Re,

Du coup il faut quand même resté sur ThisWorkbook mais il faut spécifier ta feuille...

oui, tout à fait. l'événement n'est pas valide pour la feuille de calcul.