Comment mettre en évidence une colonne ou un en-tête de colonne s'il est filtré dans Excel ?

Pour un tableau comportant plusieurs colonnes, il n'est pas facile de repérer rapidement quelle colonne est filtrée, car il n'y a pas de symbole évident pour la colonne filtrée, sauf pour un marque. Si vous souhaitez faire ressortir la colonne filtrée dans un tableau, une méthode décrite dans cet article peut vous aider.

Mettre en évidence l'en-tête de colonne ou la colonne entière si elle est filtrée avec un code VBA

Mettre en évidence l'en-tête de colonne ou la colonne entière si elle est filtrée avec un code VBA

Comme le montre la capture d'écran ci-dessous, vous devez mettre en évidence toute la colonne ou uniquement l'en-tête de colonne si cette colonne est filtrée dans une plage de tableaux. Veuillez appliquer les codes VBA suivants.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Mettre en évidence l'en-tête de colonne si la colonne est filtrée

Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim I As Integer
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg.Offset(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                If .On Then
                    xRg.Offset(, I - xRgCol).Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

Pour mettre en évidence toute la colonne si elle est filtrée dans un tableau, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Mettre en évidence toute la colonne si elle est filtrée

Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xRgFilter As Range
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
                If .On Then
                    xRgFilter.Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui apparaît, sélectionnez la première cellule du tableau où vous avez besoin de mettre en évidence l'en-tête de colonne filtré ou toute la colonne filtrée, puis cliquez sur le bouton OK.

Ensuite, l'en-tête de colonne ou toute la colonne sera immédiatement mis en évidence si la colonne est filtrée dans un certain tableau. Consultez les captures d'écran :

Mettre en évidence l'en-tête de colonne si la colonne est filtrée dans le tableau :

Mettre en évidence toute la colonne si elle est filtrée dans le tableau :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !