Comment mettre en évidence une colonne ou un en-tête de colonne s'il est filtré dans Excel?
Pour une table à 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 à l'exception d'un 
marque. Si vous souhaitez rendre la colonne filtrée exceptionnelle 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
Comme illustré ci-dessous, vous devez mettre en surbrillance la colonne entière ou uniquement l'en-tête de colonne si cette colonne est filtrée dans une plage de tableau, 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 SubPour mettre en évidence la colonne entière si elle est filtrée dans un tableau, veuillez copier et coller 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 Sub3. appuie sur le F5 clé pour exécuter le code. Dans le popping Kutools for Excel boîte de dialogue, veuillez sélectionner la première cellule du tableau dont vous avez besoin pour mettre en surbrillance l'en-tête de colonne filtrée ou toute la colonne filtrée, 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 un certain tableau. Voir les captures d'écran:
Mettez en surbrillance l'en-tête de colonne si la colonne est filtrée dans le tableau:
Mettez en surbrillance toute la colonne si elle est filtrée dans le tableau:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activer 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 réduit des centaines de clics de souris chaque jour!
