Bonjour,
Désolé si cette question a été de nombreuses fois posées.
J'ai un fichier contenant macros, modules etc et je voudrais juste rajouter un code qui efface la cellule B2 de chaque feuille avant la fermeture du fichier.
J'essaye de rajouter
'effacer cellule b2
Cells("B2").ClearContents
mais ça provoque une erreur.
Merci de votre aide.
Pasqi
Désolé si cette question a été de nombreuses fois posées.
J'ai un fichier contenant macros, modules etc et je voudrais juste rajouter un code qui efface la cellule B2 de chaque feuille avant la fermeture du fichier.
Code:
Sub Workbook_BeforeClose(Cancel As Boolean)
'effacer cellule b2
Cells("B2").ClearContents
'Protéger les feuilles du classeur
WsLock
DeverouillerCellulesVides
End Sub
J'essaye de rajouter
'effacer cellule b2
Cells("B2").ClearContents
mais ça provoque une erreur.
Merci de votre aide.
Pasqi