Note: The other languages of the website are Google-translated. Back to English

Comment effacer le contenu de cellule spécifié lors de l'ouverture et de la sortie dans le classeur Excel?

Cet article parle de la suppression du contenu des cellules spécifiées lors de l'ouverture ou de la fermeture d'un classeur Excel.

Effacer le contenu de la cellule spécifiée sur le classeur ouvrir et quitter


Effacer le contenu de la cellule spécifiée sur le classeur ouvrir et quitter

Veuillez procéder comme suit pour effacer le contenu de cellule spécifié sur l'ouverture et la fermeture du classeur.

Tout d'abord, vous devez enregistrer le classeur dont vous avez besoin pour effacer le contenu des cellules spécifiées lors de l'ouverture ou de la sortie en tant que classeur Excel prenant en charge les macros.

1. Veuillez cliquer Déposez le > Enregistrer sous > Explorer. Voir la capture d'écran:

2. dans le Enregistrer sous boîte de dialogue, veuillez sélectionner un dossier pour enregistrer le classeur, entrez un nouveau nom dans le Nom du fichier boîte selon vos besoins, sélectionnez Cahier de travail Excel avec macro-activé du Sava comme type liste déroulante, puis cliquez sur le Épargnez .

3. Dans le pop-up Microsoft Excel boîte de dialogue, veuillez cliquer sur le OK bouton comme ci-dessous la capture d'écran montrée.

4. Ouvrez le classeur prenant en charge les macros que vous venez d'enregistrer, appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

5. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Ce classeur dans le volet gauche, puis copiez sous le code VBA dans la fenêtre Code.

Code VBA 1: effacer le contenu de la cellule spécifiée sur le classeur ouvert

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
    Application.EnableEvents = False
        Worksheets("test").Range("A1:A11").Value = ""
    Application.EnableEvents = True
End Sub

Code VBA 2: effacer le contenu de la cellule spécifiée à la sortie du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20190712
    Worksheets("test").Range("A1:A11").Value = ""
End Sub

Notes: Dans les codes ci-dessus, test et A1: A11 est le nom de la feuille de calcul et la plage de cellules dont vous effacerez le contenu. Veuillez les changer selon vos besoins.

6. appuie sur le autre + Q touches pour quitter Microsoft Visual Basic pour applications fenêtre.

À partir de maintenant, lors de l'ouverture ou de la fermeture du classeur, le contenu de cellule spécifié dans certaines feuilles de calcul sera effacé automatiquement.


Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel Résout la plupart de vos problèmes et augmente votre productivité de 80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (9)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Cher monsieur / madame, ma feuille est protégée et seule la cellule spécifiée (pour l'effacement des données) n'est pas protégée, mais lorsque j'entre la valeur dans le spécifié et que je rouvre le fichier Excel, la valeur est effacée par le code VBA mais la cellule spécifiée est protégé, je dois déprotéger la cellule en déprotégeant la feuille, modifiez la plage modifiable encore et encore, veuillez donc corriger.
Merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Sanjay Sharma,
Désolé pour l'inconvénient. Veuillez appliquer les codes VBA ci-dessous et n'oubliez pas de remplacer le nom de la feuille et la plage selon vos besoins. Merci pour votre commentaire.

Code VBA 1 :
Sous-carnet de travail privé_Open ()
Application.EnableEvents = False
Feuilles de calcul("Feuille1").Plage("A1:A11").Valeur = ""
Application.EnableEvents = True
End Sub

Code VBA 2 :
Classeur de sous-classement privé_AvantFermer (Annuler en tant que booléen)
Feuilles de calcul("Feuille1").Plage("A1:A11").Valeur = ""
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, pour la plage, comment saisir le code si je veux sélectionner plusieurs plages ou cellules ?
Ce commentaire a été minimisé par le modérateur sur le site
Quelqu'un peut-il m'aider à masquer des cellules de feuille (uniquement dans une rangée et non dans la feuille entière). Le code ci-dessous supprime le contenu de toutes les lignes de la feuille. Mais je veux que le contenu soit effacé uniquement dans row9

Sous-carnet de travail privé_Open ()

'Mis à jour par Extendoffice 20190712

Application.EnableEvents = False

Feuilles de travail("test").Range("A1:A11").Value = ""

Application.EnableEvents = True

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Quelqu'un peut-il m'aider à masquer des cellules de feuille (uniquement dans une rangée et non dans la feuille entière). Le code ci-dessous supprime le contenu de toutes les lignes de la feuille. Mais je veux que le contenu soit effacé uniquement dans row9



Sous-carnet de travail privé_Open ()

'Mis à jour par Extendoffice 20190712

Application.EnableEvents = False

Feuilles de travail("test").Range("A1:A11").Value = ""

Application.EnableEvents = True

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Le VBA ci-dessus efface uniquement la valeur de cellule de la plage A1: A11. Si vous souhaitez effacer uniquement les valeurs de la ligne 9, vous pouvez remplacer A1:A11 par 9:9. Voir le code ci-dessous.

Sous-carnet de travail privé_Open ()

'Mis à jour par Extendoffice 20200522

Application.EnableEvents = False

Feuilles de calcul("test").Range("9:9").Valeur = ""

Application.EnableEvents = True

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Chers amis, j'ai essayé le code suggéré sans effet sur open>

Sous-carnet de travail privé_Open ()


Application.EnableEvents = False

Feuilles de travail("Client").Range("A9:K900").Valeur = ""

Application.EnableEvents = True

End Sub


La macro fonctionne à partir du classeur, mais pas lorsque le classeur s'ouvre.

Toute aide serait grandement appréciée!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour TUDOSE GELU,
Le code fonctionne bien dans mon cas.
N'oubliez pas de mettre le code dans le Ce classeur (code) fenêtre et enregistrez le classeur en tant que Excel compatible avec les macros Classeur.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-2.png
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-1.png
Ce commentaire a été minimisé par le modérateur sur le site
Merci Cristal ! Ça marche.

G
Il n'y a pas encore de commentaires postés ici

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL