Comment supprimer des lignes en fonction de la couleur de fond dans Excel ?
Comment supprimer des lignes entières en fonction de la couleur de fond ? Dans cet exemple, vous devez supprimer toutes les lignes dont les cellules sont remplies avec une couleur de fond bleue, comme illustré dans la capture d’écran suivante. Grâce à cet article, vous obtiendrez plusieurs codes pour accomplir cette tâche dans Excel.
Supprimer des lignes avec une Couleur de fond spécifique en fonction de chaque cellule
Supprimer des lignes avec une Couleur de fond spécifique en fonction d’une colonne
Supprimer des lignes avec une Couleur de fond spécifique en fonction de chaque cellule
Si vous disposez d’une plage de données dont certaines cellules sont colorées de manière aléatoire, et que vous devez supprimer les lignes dont la couleur de cellule est bleue, comme le montre la capture d’écran suivante :
Pour supprimer ce type de lignes, utilisez 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 : Supprimer des lignes dont les cellules contiennent une Couleur de remplissage spécifique :
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affichera alors, vous invitant à sélectionner une cellule dont vous souhaitez supprimer la couleur de remplissage, comme illustré ci-dessous :
4. Cliquez ensuite sur OK, et toutes les lignes dont les cellules comportent une couleur de remplissage spécifique seront supprimées.
Supprimer des lignes avec une Couleur de fond spécifique en fonction d’une colonne
Si vous souhaitez supprimer les lignes dont une cellule présente une couleur spécifique dans une colonne donnée — par exemple, supprimer toutes les lignes où la cellule de la colonne A est colorée en bleu, comme illustré dans la capture d’écran ci-dessous — voici un code VBA qui vous sera particulièrement utile.
1. Maintenez enfoncées les touches ALT + F11pour 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 : Supprimer des lignes en fonction d’une colonne dont les cellules ont une Couleur de remplissage spécifique :
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Remarque : Dans le code ci-dessus, A2:A21 correspond à la colonne contenant la couleur de remplissage spécifique sur laquelle vous souhaitez baser la suppression des lignes. Le nombre 20 figurant dans ColorIndex = 20 est le code couleur utilisé pour supprimer les lignes. Vous pouvez les adapter selon vos besoins.
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et toutes les lignes dont les cellules de la colonne A sont colorées en bleu seront supprimées d’un seul coup.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- 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 fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels