Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Pour une table avec plusieurs colonnes, il n'est pas facile de savoir quelle colonne est filtrée en un coup d'œil car il n'y a pas de symbole évident pour la colonne filtrée, sauf pour un marque. Si vous souhaitez rendre la colonne filtrée en attente dans une table, une méthode de cet article peut vous aider.

Mettez en surbrillance l'en-tête de colonne ou la colonne entière si elle est filtrée avec le code VBA


Mettez en surbrillance l'en-tête de colonne ou la colonne entière si elle est filtrée avec le code VBA


Comme ci-dessous la capture d'écran illustrée, vous devez mettre en évidence la colonne entière ou uniquement l'en-tête de colonne si cette colonne est filtrée dans une plage de table, veuillez appliquer les codes VBA suivants.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA: Mettez en surbrillance 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: Mettez en surbrillance 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. appuie sur le F5 clé pour exécuter le code. Dans le popping up Kutools for Excel boîte de dialogue, sélectionnez la première cellule de la table dont vous avez besoin pour mettre en surbrillance l'en-tête de colonne filtrée ou la colonne filtrée entière, puis cliquez sur le OK .

Ensuite, l'en-tête de colonne ou la colonne entière sera mise en surbrillance immédiatement si la colonne est filtrée dans une certaine table. Voir les captures d'écran:

Mettez en surbrillance l'en-tête de colonne si la colonne est filtrée dans la table:

Mettez en surbrillance toute la colonne si elle est filtrée dans la table:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MakeItSimple · 3 months ago
    this would be fantastic for me, but I couldn't make it work. I used the code to color the whole column. when I filtered the first time, the column turned blue. however when I cleared the filter, the blue remained. Afterwards, filtering another column had no effect. so at the moment I am left with one blue column. using latest Excel of Office 365.
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi,
      Thank you for your comment.
      The problem you mentioned is too complicated to acheive now. We will try our best to solve it as soon as possible and let you know after we figure it out.