Comment supprimer le contenu d’une cellule selon une condition dans Excel ?
Il peut parfois être nécessaire de Effacer le contenu de la cellule selon certaines conditions dans Excel, par exemple effacer le contenu des cellules si elles contiennent une valeur spécifique, effacer le contenu des cellules s’il existe des cellules vides dans une autre colonne, ou encore Effacer le contenu de la cellule avec un(e) Couleur de fond spécifique, etc. Cet article présente quelques astuces pour résoudre ces tâches rapidement et facilement.
Effacer le contenu de la cellule en fonction de la valeur d’une cellule avec du code VBA
Effacer Ligne entière si une autre cellule est vide avec du code VBA
Effacer le contenu de la cellule en fonction de Couleur de fond avec du code VBA
Effacer le contenu de la cellule en fonction de la valeur d’une cellule avec du code VBA
Par exemple, vous disposez de la plage de données suivante et souhaitez effacer le contenu des cellules contenant « Hoodie ». Le code VBA ci-dessous vous sera utile.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : Effacer le contenu de la cellule si la cellule est égale à une valeur spécifique
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Ensuite, appuyez sur la touche F5 pour exécuter ce code ; toutes les cellules contenant le texte « Hoodie » seront effacées en une seule fois, comme illustré ci-dessous :
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Effacer Ligne entière si la valeur est supérieure ou inférieure à une valeur spécifique avec du code VBA
Supposons que vous disposiez de la plage de données ci-dessous et que vous souhaitiez effacer le contenu de toute une ligne si la valeur dans la colonne D est supérieure ou inférieure à 300. Je vais créer un code VBA pour effectuer cette opération.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2Cliquez sur Insertion>Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Effacer Ligne entière si la valeur de la cellule est supérieure ou inférieure à une valeur spécifique
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code : toutes les lignes dont la valeur en colonne D est supérieure à 300 seront effacées, comme illustré ci-dessous :
Effacer le contenu d’une cellule ou d’une ligne en fonction de la valeur d’une cellule grâce à une fonctionnalité pratique
Si vous possédez Kutools pour Excel, sa fonctionnalité Sélectionner des cellules spécifiques vous permet de sélectionner les cellules ou les lignes contenant une valeur précise, puis d’effacer leur contenu en une seule opération.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage de données contenant les valeurs à partir desquelles vous souhaitez effacer le contenu des cellules ou des lignes, puis cliquez sur Kutools > Sélectionner > Sélectionner des cellules spécifiques, comme illustré ci-dessous :
2. Dans la boîte de dialogue Sélectionner des cellules spécifiques qui s’ouvre, effectuez les opérations suivantes :
- Cliquez sur Celluleou sur Ligne entièreque vous souhaitez sélectionner ;
- Spécifiez les critères dans la section Spécifier le type selon vos besoins. Ici, je souhaite sélectionner les lignes dont la valeur de la colonne D est supérieure à 300.
3. Cliquez ensuite sur le bouton OK : toutes les lignes dont la valeur est supérieure à 300 seront automatiquement sélectionnées. Il ne vous reste plus qu’à appuyer sur la touche Suppr de votre clavier pour effacer le contenu des cellules, comme illustré ci-dessous :
Effacer les lignes Données dans la sélection si elles contiennent une cellule vide avec du code VBA
Dans ce cas, si une cellule de la plage de données est vide, je souhaite supprimer les lignes correspondantes, comme illustré dans la capture d’écran ci-dessous.
Pour réaliser cette tâche, appliquez le code VBA suivant :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Effacer les données des lignes si elles contiennent une cellule vide
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code : les données des lignes contenant des cellules vides seront immédiatement supprimées dans la plage spécifiée, selon vos besoins.
Effacer le contenu de la cellule en fonction de Couleur de fond avec du code VBA
Pour effacer les cellules remplies avec une couleur de fond spécifique, utilisez le code VBA suivant.
1. Maintenez enfoncées les touches ALT + F11pour ouvrir la Microsoft Visual Basic pour Applicationsfenêtre.
2Cliquez sur Insertion>Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Effacer le contenu de la cellule en fonction de Couleur de fond
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code : le contenu des cellules avec la couleur de fond spécifiée sera immédiatement effacé. Voir la capture d’écran :
Les meilleurs outils de productivité bureautique
Kutools pour Excel résout la majorité de vos problèmes et augmente votre productivité de 80 %
- Super Barre de formule (modifiez facilement plusieurs lignes de texte et de formules) ; Mode Lecture (lisez et modifiez aisément un grand nombre de cellules) ; Coller dans Plage de filtrage...
- Fusionner des cellules, lignes ou colonnes tout en conservant les données ; diviser le contenu des cellules ; combiner les lignes en double avec somme ou moyenne… empêcher les doublons dans les cellules ; comparer des plages…
- Sélectionner les doublons ou les éléments uniques dans les lignes ; Sélectionner les lignes vides (toutes les cellules sont vides) ; Super Recherche et recherche floue dans de nombreux classeurs ; sélection aléatoire…
- Copiez plusieurs cellules sans modifier les références de formule ; créez automatiquement des références vers plusieurs feuilles ; insérez des puces, des cases à cocher et bien plus encore…
- Favoris et insertion rapide de formules, plages, graphiques et images ; crypter les cellules avec mot de passe ; créer une liste de diffusion et envoyer des e-mails…
- Extraire du texte, ajouter du texte, supprimer les caractères à une position donnée, supprimer les espaces ; créer et imprimer les statistiques de la page de données ; convertir le contenu des cellules en commentaires et inversement...
- Super Filtre (enregistrez et appliquez des schémas de filtre à d’autres feuilles) ; Tri avancé par mois, semaine, jour, fréquence, etc. ; Filtre spécial par gras, italique…
- Combinez plusieurs classeurs et feuilles de calcul en un seul ; fusionnez des tableaux à partir d’une colonne clé ; répartissez vos données dans plusieurs feuilles ; convertissez en lot vos fichiers xls, xlsx et PDF…
- Regroupement dans un tableau croisé dynamique par numéro de semaine, jour de la semaine et bien plus encore…Afficher les cellules non verrouillées et verrouiller la sélection avec des couleurs distinctes ;Mettre en surbrillance les cellules contenant une formule ou un nom défini…
- Activez 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 vous évite des centaines de clics de souris chaque jour !
