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é.
Trucs: 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 pour 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:
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
