Comment mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel ?

Comme le montre la capture d'écran ci-dessous, vous devez mettre en surbrillance une ligne ou une cellule avec une case à cocher. Lorsqu'une case à cocher est cochée, une ligne ou une cellule spécifiée sera automatiquement mise en surbrillance. Mais comment réaliser cela dans Excel ? Cet article vous montrera deux méthodes pour y parvenir.

Mettre en évidence une cellule ou une ligne avec une case à cocher grâce à la mise en forme conditionnelle
Mettre en évidence une cellule ou une ligne avec une case à cocher grâce au code VBA

Mettre en évidence une cellule ou une ligne avec une case à cocher grâce à la mise en forme conditionnelle

Vous pouvez créer une règle de mise en forme conditionnelle pour mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel. Veuillez procéder comme suit.

ÉTAPE UN : Lier toutes les cases à cocher à une cellule spécifique

1. Vous devez insérer des cases à cocher manuellement une par une en cliquant sur Développeur > Insérer > Case à cocher (Contrôle de formulaire).

2. Maintenant que des cases à cocher ont été insérées dans les cellules de la colonne I. Veuillez sélectionner la première case à cocher dans I1, entrer la formule =$J1 dans la barre de formule, puis appuyez sur la touche Entrée.

Astuce : Si vous ne souhaitez pas avoir de valeurs associées dans les cellules adjacentes aux cases à cocher, vous pouvez lier la case à cocher à une cellule d'une autre feuille de calcul, telle que =Feuil3!$E1.

3. Répétez l'étape 1 jusqu'à ce que toutes les cases à cocher soient liées aux cellules adjacentes ou aux cellules d'une autre feuille de calcul.
Remarque: Toutes les cellules liées doivent être consécutives et situées dans la même colonne.

ÉTAPE DEUX : Créer une règle de mise en forme conditionnelle

Maintenant, vous devez créer une règle de mise en forme conditionnelle étape par étape comme suit.

1. Sélectionnez les lignes que vous souhaitez mettre en surbrillance avec des cases à cocher, puis cliquez sur Mise en forme conditionnelle > Nouvelle règle sous l'onglet Accueil. Voir la capture d'écran :

2. Dans la boîte de dialogue Nouvelle règle de mise en forme, vous devez :

La règle de mise en forme conditionnelle est maintenant créée. Lorsque vous cochez les cases à cocher, les lignes correspondantes seront automatiquement mises en surbrillance comme le montre la capture d'écran ci-dessous.

Mettre en évidence une cellule ou une ligne avec une case à cocher grâce au code VBA

Le code VBA suivant peut également vous aider à mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel. Veuillez procéder comme suit.

1. Dans la feuille de calcul où vous avez besoin de mettre en évidence une cellule ou une ligne avec une case à cocher. Faites un clic droit sur l' Onglet Feuille et sélectionnez Afficher le code dans le menu contextuel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code.

Code VBA : Mettre en surbrillance une ligne avec une case à cocher dans Excel

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng        
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With    
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone                  
        Next        
    End If    
    With xRng    
     .Rows.RowHeight = 16    
    End With   
    xRng.ColumnWidth = 5#    
    xRng.Cells(1, 1).Offset(0, 1).Select    
    For Each xChk In ActiveSheet.CheckBoxes   
      xChk.OnAction = ActiveSheet.Name + ".InsertBgColor"      
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes 
  xName = Right(xChk.Name, Len(xChk.Name) - 10) 
  If (xName = Range(xChk.LinkedCell).Row) Then   
   If (Range(xChk.LinkedCell) = "True") Then   
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6    
   Else    
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone  
   End If  
  End If
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. (Remarque : vous devez placer le curseur dans la première partie du code pour appliquer la touche F5) Dans la boîte de dialogue Kutools for Excel qui apparaît, veuillez sélectionner la plage où vous souhaitez insérer des cases à cocher, puis cliquez sur le bouton OK. Ici, je sélectionne la plage I1:I6. Voir la capture d'écran :

4. Les cases à cocher sont ensuite insérées dans les cellules sélectionnées. Cochez n'importe laquelle des cases à cocher, la ligne correspondante sera automatiquement mise en surbrillance comme le montre la capture d'écran ci-dessous.

Articles connexes :

• Comment changer la valeur ou la couleur d'une cellule spécifiée lorsque la case à cocher est cochée dans Excel ?
• Comment insérer un tampon de date dans une cellule si une case à cocher est cochée dans Excel ?
• Comment cocher une case à cocher en fonction de la valeur d'une cellule dans Excel ?
• Comment filtrer des données en fonction d'une case à cocher dans Excel ?
• Comment masquer une case à cocher lorsque la ligne est masquée dans Excel ?
• Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel ?