Comment mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel?
Comme illustré ci-dessous, vous devez mettre en évidence la ligne ou la cellule avec la case à cocher. Lorsqu'une case à cocher est cochée, une ligne ou une cellule spécifiée sera mise en surbrillance automatiquement. Mais comment y parvenir dans Excel? Cet article vous montrera deux méthodes pour y parvenir.
Mettez en surbrillance la cellule ou la ligne avec une case à cocher avec mise en forme conditionnelle
Mettez en surbrillance la cellule ou la ligne avec la case à cocher avec le code VBA
Mettez en surbrillance la cellule ou la ligne avec une case à cocher avec 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 faire comme suit.
Lier tout la case à cocher à une cellule spécifiée
1. Vous devez insérer manuellement des cases à cocher dans les cellules une par une en cliquant sur Développeur > insérer > Case à cocher (Contrôle de formulaire).
2. Des cases à cocher ont maintenant été insérées dans les cellules de la colonne I. Veuillez sélectionner la première case à cocher dans I1, entrez la formule = $ J1 dans la barre de formule, puis appuyez sur la touche Entrer clé.
Conseil : Si vous ne souhaitez pas que des valeurs soient associées dans les cellules adjacentes aux cases à cocher, vous pouvez lier la case à cocher à la cellule d'une autre feuille de calcul telle que = Feuille3! $ E1.
2. 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.
Notes: Toutes les cellules liées doivent être consécutives et se situer dans la même colonne.
Créer une règle de mise en forme conditionnelle
Vous devez maintenant créer une règle de mise en forme conditionnelle comme suit étape par étape.
1. Sélectionnez les lignes à mettre en évidence avec des cases à cocher, puis cliquez sur Mise en forme conditionnelle > Nouvelle règle sous le Accueil languette. Voir la capture d'écran:
2. dans le Nouvelle règle de formatage boîte de dialogue, vous devez:
2.1 Sélectionnez le Utilisez une formule pour déterminer les cellules à formater option dans la Sélectionnez un type de règle boîte;
2.2 Entrez la formule = SI ($ J1 = VRAI, VRAI, FAUX) into the Formater les valeurs où cette formule est vraie boîte;
Or = SI (Feuille3! $ E1 = VRAI, VRAI, FAUX) si les cases à cocher sont liées à une autre feuille de calcul.
2.3 Cliquez sur le Format bouton pour spécifier une couleur en surbrillance pour les lignes;
2.4 Cliquez sur le OK bouton. Voir la capture d'écran:
Notes: Dans la formule, $ J1 or $ E1 est la première cellule liée pour les cases à cocher, et assurez-vous que la référence de cellule a été modifiée en colonne absolue (J1> $ J1 or E1> $ E1).
La règle de mise en forme conditionnelle est maintenant créée. Lorsque vous cochez les cases, les lignes correspondantes seront automatiquement mises en surbrillance comme la capture d'écran du soufflet.
Mettez en surbrillance la cellule ou la ligne avec la case à cocher avec le 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 faire comme suit.
1. Dans la feuille de calcul, vous devez mettre en évidence la cellule ou la ligne avec une case à cocher. Faites un clic droit sur Onglet Feuille et sélectionnez Voir le code dans le menu contextuel pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Code.
Code VBA: mettre en évidence la ligne avec la 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. appuie sur le F5 clé pour exécuter le code. (Notes: vous devez placer le curseur dans la première partie du code pour appliquer la touche F5) Dans le pop-up Kutools for Excel boîte de dialogue, sélectionnez la plage dans laquelle vous souhaitez insérer des cases à cocher, puis cliquez sur le OK bouton. 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 l'une des cases à cocher, la ligne correspondante sera mise en surbrillance automatiquement comme illustré ci-dessous.
Articles connexes:
- Comment modifier une valeur ou une couleur de cellule spécifiée lorsque la case est cochée dans Excel?
- Comment insérer un horodateur dans une cellule si une case à cocher est cochée dans Excel?
- Comment faire cocher la case en fonction de la valeur de la cellule dans Excel?
- Comment filtrer les données en fonction de la case à cocher dans Excel?
- Comment masquer la case à cocher lorsque la ligne est masquée dans Excel?
- Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel?
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!
