Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Effacer cellule avant fermeture

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Pasqi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Pasqi

Guest
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.

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
 
Trier par date Trier par votes
Re : Effacer cellule avant fermeture

Bonjour Pasqui

Peut-être quelque chose comme ceci:
VB: 
For i = 1 To Sheets.Count
sheets(i).Range("B2").ClearContents
Next

Bonne journée,

mth
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Effacer cellule avant fermeture

Re-bonjour,

Merci pour l'aide mais ça coince encore.

J'ai joint un fichier qui permettra de mieux trouver la solution.

Petite explication :

Le fichier est protégé lors de l'ouverture.
Pour le déprotéger, il faut écrire en minuscule "test" en B2 de l'une des feuilles et le classeur est déprotégé..
Pour reprotéger le classeur, il suffit soit de fermer le fichier et ça se reprotège automatiquement, soit d'effacer ce qu'il y a en B2 (c'est à dire le mot de passe pour déprotéger).
Ce que je voudrais c'est que la cellule B2 soir effacée DANS CHAQUE FEUILLE à la fermeture du fichier.

Merci encore pour votre aide

Pasqi
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Effacer cellule avant fermeture

re 🙂

Un autre essai ...
VB: 
Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
Sheets(i).Unprotect "test"
Sheets(i).Range("B2").ClearContents
Sheets(i).Protect "test"
Next
End Sub

Bon après-midi,

mth
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
661
Daniel200666
D
D
  • Question Question
Microsoft 365 Macro pour enlever les filtres mais laisser la possibilité de filtrer avant fermeture
2
Réponses
25
Affichages
2 K
TooFatBoy
S
  • Question Question
XL 2016 Correction code BVA, efface le contenu d'une cellule
Réponses
0
Affichages
612
Scorpio
S
C
  • Question Question
Lancer telle ou telle macro en fonction du mois cellule A1 feuil1, à la fermeture...
Réponses
9
Affichages
1 K
Christian0258
C
E
  • Question Question
VBA - Enregistrer un fichier avec un nombre de cellule limité
Réponses
4
Affichages
1 K
eldoctor62
E
R
  • Question Question
Renommer et trier les onglets avant la fermeture du classeur
Réponses
2
Affichages
789
recovery
R
Z
  • Question Question
Protéger son classeur si les macros ne sont pas activées dans Excel
Réponses
8
Affichages
1 K
Compte Supprimé 979
C
  • Question Question
Fenêtre grise à la fermeture VBA 2 fichiers
Réponses
8
Affichages
3 K
Si...
S
  • Question Question
Message avant fermeture fichier excel
Réponses
2
Affichages
3 K
urbanito1
M
  • Question Question
sauvegarde sur autre classeur avant fermeture [RESOLU]
Réponses
7
Affichages
9 K
mistick
M
B
  • Question Question
VBA pour Lancement et fermeture (auto-save)
Réponses
5
Affichages
2 K
BowserKar
B
G
  • Question Question
Afficher message à la fermeture d'excel : Résolu
Réponses
6
Affichages
5 K
guigus
G
P
  • Question Question
adaptation d'une macro
Réponses
2
Affichages
21 K
job75
W
  • Question Question
UserForm "Modifier une ligne" qui rapatrie des nombres en texte, au lieu de nombres
Réponses
0
Affichages
13 K
Webperegrino
W
A
  • Question Question
VBA Macro copie/colle valeur cellule non vide à la fermeture
2
Réponses
21
Affichages
12 K
Anais51
A
L
  • Question Question
pb macro avant fermeture
Réponses
4
Affichages
2 K
laurent999
L
A
  • Question Question
boucle sur cellule vide avant sauvegarde ?
Réponses
11
Affichages
2 K
ROGER2327
H
  • Question Question
boucle - ok- mais effacer avant report des donnees
Réponses
0
Affichages
798
happymarmotte
H
N
  • Question Question
mocro feuille et module bloque
Réponses
5
Affichages
2 K
Neptune64
N
D
  • Question Question
Effacer cellule avant exit sub
Réponses
2
Affichages
866
David
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…