Comment masquer des lignes selon la couleur des cellules dans Excel ?
Dans une feuille de calcul Excel, j’ai une liste de cellules comportant de nombreuses couleurs différentes. Je dois maintenant masquer rapidement et facilement toutes les lignes dont les cellules sont colorées en bleu clair, comme illustré dans la capture d’écran ci-dessous. Comment procéder ?
Masquer des lignes en fonction de la couleur des cellules à l’aide d’un code VBA
Masquer des lignes en fonction de la couleur des cellules avec Kutools pour Excel
Masquer des lignes en fonction de la couleur des cellules à l’aide d’un code VBA
Pour masquer des lignes selon une couleur de fond spécifique, le code VBA suivant vous sera utile. Suivez ces étapes :
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 : Masquer des lignes en fonction de la couleur des cellules :
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’ouvre alors afin que vous puissiez sélectionner les cellules à utiliser, comme illustré ci-dessous :
4. Cliquez ensuite sur le bouton OK : toutes les lignes contenant des cellules bleu clair sont immédiatement masquées, comme illustré ci-dessous :
Remarques :
1. Dans le code ci-dessus, le nombre 20 figurant dans ce script If xRg.Range(«A» & I).Interior.ColorIndex = 20 Then correspond au code couleur ; vous pouvez le modifier selon vos besoins.
2. Si vous ne connaissez pas le code couleur, appliquez le code suivant pour obtenir celui que vous souhaitez connaître :
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Saisissez ensuite la formule :=GetColor(A2) pour obtenir le numéro spécifique du code couleur correspondant à l’arrière-plan de la cellule A2. Remplacez A2 par toute autre référence selon vos besoins.
Masquer des lignes en fonction de la couleur des cellules avec Kutools pour Excel
Si vous disposez de Kutools pour Excel, son utilitaire Sélectionner les cellules avec un format similaire vous permet de sélectionner d’abord les cellules colorées spécifiques, puis de les masquer en une seule opération.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Cliquez sur Kutools > Sélectionner > Sélectionner les cellules avec un format similaire, comme illustré ci-dessous :
2. Dans la boîte de dialogue Sélectionner les cellules avec un format similaire, effectuez les opérations suivantes :
(1.) Cliquez sur le bouton 
pour sélectionner le Plage de données à utiliser ;
(2.) Cliquez ensuite sur le bouton Sélectionner le format à partir de la cellulepour sélectionner la cellule colorée spécifique sur laquelle baser le masquage des lignes ;
(3.) Tous les attributs de la cellule spécifique apparaissent dans la zone de liste. Cochez simplement Couleur de fond sous la section Remplissage.
3. Cliquez ensuite sur le bouton OK, ce qui sélectionne immédiatement toutes les cellules de la couleur spécifiée. Puis, cliquez sur Accueil > Format > Masquer et afficher > Masquer les lignes, comme illustré ci-dessous :
4. Les cellules sélectionnées avec la couleur spécifique sont alors masquées, comme illustré ci-dessous :
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Démo : Masquer des lignes en fonction de la couleur des cellules avec Kutools pour Excel
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