Comment masquer des lignes en fonction de la couleur des cellules dans Excel ?

Dans une feuille de calcul Excel, j'ai une liste de cellules avec de nombreuses couleurs différentes. Maintenant, je dois masquer toutes les lignes de couleur bleu clair comme le montre la capture d'écran suivante. Comment pourriez-vous gérer cette tâche rapidement et facilement dans Excel ?

Masquer des lignes en fonction de la couleur des cellules avec du 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 avec du code VBA

Pour masquer des lignes en fonction d'une couleur d'arrière-plan spécifique, le code VBA suivant peut vous aider, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées, puis la fenêtre Microsoft Visual Basic for Applications s'ouvre.

2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre 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 Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner les cellules que vous souhaitez utiliser, voir la capture d'écran :

4. Cliquez ensuite sur le bouton OK, toutes les cellules de couleur bleu clair ont été masquées immédiatement, voir la capture d'écran :

Remarques :

1. Dans le code ci-dessus, le numéro 20 dans ce script If xRg.Range("A" & I).Interior.ColorIndex = 20 Then est le numéro d'index de couleur, vous pouvez le changer selon vos besoins.

2. Si vous n'êtes pas sûr du numéro d'index de couleur, vous devez appliquer le code suivant pour obtenir l'index de couleur que vous souhaitez connaître :

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

Ensuite, entrez la formule : =GetColor(A2) pour retourner le numéro d'index de couleur spécifique de l'arrière-plan dans la cellule A2, vous pouvez changer A2 par d'autres si nécessaire.

Masquer des lignes en fonction de la couleur des cellules avec Kutools pour Excel

Si vous avez Kutools pour Excel, avec son utilitaire Sélectionner les cellules avec un format similaire, vous pouvez d'abord sélectionner les cellules colorées spécifiques, puis les masquer en une seule fois.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Cliquez sur Kutools > Sélectionner > Sélectionner les cellules avec un format similaire, voir la capture d'écran :

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 la plage de données que vous souhaitez utiliser ;

(2.) Cliquez ensuite sur le bouton Sélectionner le format à partir de la cellule pour sélectionner la cellule colorée spécifique sur laquelle vous souhaitez baser le masquage des lignes ;

(3.) Tous les attributs de la cellule spécifique ont été listés dans la zone de liste, veuillez simplement cocher Couleur de fond sous la section Remplissage.

3. Cliquez ensuite sur le bouton OK, toutes les cellules avec la couleur spécifique sont sélectionnées immédiatement, puis cliquez sur Accueil > Format > Masquer et Afficher > Masquer les lignes, voir la capture d'écran :

4. Ensuite, les cellules sélectionnées avec la couleur spécifique sont masquées, voir la capture d'écran :

Démo : Masquer des lignes en fonction de la couleur des cellules avec Kutools pour Excel