Passer au contenu principal

 Comment appliquer un bouton pour effacer des cellules spécifiques dans Excel?

Normalement, vous pouvez tenir le Ctrl pour sélectionner plusieurs cellules spécifiques, puis effacez le contenu de la cellule selon vos besoins. Si vous avez toujours besoin d'effacer ces cellules spécifiques de temps en temps, vous pouvez créer un bouton d'effacement pour les effacer en un seul clic. Dans cet article, je vais expliquer comment créer un bouton d'effacement de tout pour effacer certains contenus de cellules spécifiques.

Appliquer un bouton pour effacer le contenu d'une cellule spécifique avec le code VBA

flèche bleue bulle droite Appliquer un bouton pour effacer le contenu d'une cellule spécifique avec le code VBA

Tout d'abord, vous devez créer un bouton de forme, puis appliquer un code, enfin, lier le code au bouton de forme. Veuillez procéder comme suit:

1Cliquez sur insérer > Formes > Rectangles pour sélectionner la forme Rectangle, puis faites glisser la souris pour dessiner un bouton rectangle n'importe où sur la feuille selon vos besoins, voir capture d'écran:

bouton doc effacer les cellules 1

2. Entrez ensuite le texte et formatez le bouton de forme selon vos besoins, voir capture d'écran:

bouton doc effacer les cellules 2

3. Et puis vous devez insérer le code VBA, veuillez maintenir le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre. Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: effacez le contenu des cellules de cellules spécifiques:

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

Notes: Dans le code ci-dessus: A2, A5 indiquer qu'il effacera les cellules de la plage A2: A5, pas seulement les deux cellules individuellement, vous pouvez ajouter plusieurs plages, telles que Plage ("B8", "B12"). Effacer script dans le code pour effacer.

4. Ensuite, enregistrez et fermez la fenêtre de code, puis liez le code au bouton de forme, cliquez avec le bouton droit sur le bouton et sélectionnez Attribuer une macro, Dans le Attribuer une macro boîte de dialogue, choisissez le Cellules claires nom de code du Nom de la macro zone de liste, puis cliquez sur OK bouton pour quitter cette boîte de dialogue. Voir la capture d'écran:

bouton doc effacer les cellules 3

5. Et maintenant, quand vous cliquez sur le Tout supprimer bouton, les cellules spécifiques que vous avez définies sont effacées à la fois, voir capture d'écran:

bouton doc effacer les cellules 4

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples  |   VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule   |  Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules   |  Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils:  12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description

Office Tab apporte une interface à onglets à Office et facilite grandement 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!
Comments (73)
Rated 5 out of 5 · 1 ratings
El Roya
El Roya
This comment was minimized by the moderator on the site
is there a way to delete data from multiple sheets with just 1 button?
Reply
0
0
skyyang
skyyang     El Roya
This comment was minimized by the moderator on the site
Hello, Roya,
To clear the specific cells in multiple sheet, please apply the following vba code:
Sub ClearMultipleRanges()
    Dim ws As Worksheet
    Dim sheetsToClear As Variant
    Dim cellRanges As Variant
    Dim range As Variant

    sheetsToClear = Array("Sheet1", "Sheet2", "Sheet3") ' Change the sheet names
    cellRanges = Array("A1:C3", "E1:E5", "G1:G10") ' Modify the cell ranges
    For Each ws In ThisWorkbook.Sheets
        If Not IsError(Application.Match(ws.Name, sheetsToClear, 0)) Then
            For Each range In cellRanges
                ws.range(range).ClearContents
            Next range
        End If
    Next ws
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
El Roya
El Roya
This comment was minimized by the moderator on the site
is there a way to delete data from multiple sheets with just 1 button?
Reply
0
0
kenvel
kenvel
This comment was minimized by the moderator on the site
very helpful. thanks so much
Reply
0
0
David Leão
David Leão
This comment was minimized by the moderator on the site
Hi there,

Used this, and it works like a charm.

Only problem is... my cells are different formats... Some are 0,000 some are 00,00€ and when I it CLEAR, the format goes with tue clear event.

How can I clear the cells but maintain the format of them?
Reply
0
0
skyyang
skyyang     David Leão
This comment was minimized by the moderator on the site
Hello, David,
To keep the cell formatting when clearing the cell contents, please apply the below code:
Sub ClearCellsKeepFormat()
    'Update by Extendoffice
    'This version clears the contents but keeps the cell formatting intact.
    Range("A2:A5").ClearContents
    Range("C10:D18").ClearContents
    Range("B8:B12").ClearContents
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
David Leão
David Leão     skyyang
This comment was minimized by the moderator on the site
It worked. Thanks a lot man 😄
Reply
0
0
Rated 5 out of 5
Sabrina Gomez
Sabrina Gomez
This comment was minimized by the moderator on the site
Hi how do you use this macro without interfering the data validation?
Reply
0
0
Bharat Bali
Bharat Bali
This comment was minimized by the moderator on the site
I wanted that the confirmation needed for clear button .....so that the data is not cleared by mistakenly press the "clear" tab

And i wanted to say thanks for your brilliant work....thanks a lot in advance....

wish you have a great day...
Reply
0
0
Shannon
Shannon
This comment was minimized by the moderator on the site
Hello,
I am using this on one spreadsheet, but on 3 separate tabs. Everything was working last time I had the workbook open but today it is giving me an error "Ambiguous name detected: Clearcells". Please help!
Reply
0
0
Yac23
Yac23
This comment was minimized by the moderator on the site
Hallo zusammen,
hab soweit alles gemacht zu gewiesen usw. Funktioniert auch aber sobald ich die Datei öffne funktioniert es nicht mehr und muss alles neu eingeben.

Vorab vielen Dank
Reply
0
0
Yac23
Yac23     Yac23
This comment was minimized by the moderator on the site
Meinte, nach dem schließen und dann wieder öffne.
Reply
0
0
Leslie
Leslie
This comment was minimized by the moderator on the site
Hi. I am trying to use a toggle button to clear all cells of color and text, but only the cells that contain the word “event”. And then I’d like to use the same toggle button to add the color and the word “event” back onto the spreadsheet. Can this be done?
Reply
0
0
Nol Kirchyunger
Nol Kirchyunger
This comment was minimized by the moderator on the site
Hallo,

Hoe kan ik cellen in een range met een formule intact houden met bovenstaand script?

Mvg,

Nol
Reply
0
0
skyyang
skyyang     Nol Kirchyunger
This comment was minimized by the moderator on the site
Hello, Nol,
Do you mean to keep the formula cells when clearing the cell contents? Could you explain your problem by using English?

Thank you!
Reply
Report
0
0
Nol Kirchyunger
Nol Kirchyunger     skyyang
This comment was minimized by the moderator on the site
Hi Skyyang,

Thats what I mean indeed

Regards,

Nol
Reply
0
0
skyyang
skyyang     Nol Kirchyunger
This comment was minimized by the moderator on the site
Hi, Nol,,
Maybe the follwoing VBA code can help you:
Sub Clearcells()
Dim xStr As String
Dim xRgs, xRg, xRgA As Range
xStr = "A2:C3,A5:E16,F5:H10"
Set xRgs = Range(xStr)
For Each xRgA In xRgs.Areas
    For Each xRg In xRgA
        If Not xRg.HasFormula Then
            xRg.Clear
        End If
    Next
Next
End Sub


Please change the cell references to your need, and you should use the comma to separate the data range.
Please have a try, hope it can help you!
Reply
Report
0
0
Nol Kirchyunger
Nol Kirchyunger     skyyang
This comment was minimized by the moderator on the site
Thanks Skyyang, the script works like an charm! Keep up the good work
Reply
0
0
Nat
Nat     Nol Kirchyunger
This comment was minimized by the moderator on the site
Can you help me find a code that would clear the contents of merged cells but keep the formatting as well as formulas?
Thank you
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations