Comment faire cocher la case en fonction de la valeur de la cellule dans Excel?
Vous savez peut-être comment modifier la valeur d'une cellule en fonction d'une case à cocher. Mais, savez-vous comment faire cocher une case automatiquement en fonction d'une valeur de cellule dans Excel? Cet article vous montrera les méthodes pour y parvenir.
Cochez la case en fonction de la valeur de la cellule avec la formule
Cochez la case en fonction de la valeur de la cellule avec le code VBA
Cochez la case en fonction de la valeur de la cellule avec la formule
Supposons que vous souhaitiez que la case 1 soit cochée automatiquement lorsque la valeur de la cellule A1 est égale à «Test». Veuillez faire comme suit.
1. Après avoir inséré la case à cocher (Form Control), sélectionnez-la et liez-la à une cellule C2 spécifiée en entrant = C2 dans la barre de formule.
Pour contrôle ActiveX case à cocher, cliquez dessus avec le bouton droit de la souris et sélectionnez biens dans le menu contextuel. Et dans le biens boîte de dialogue, entrez cellule liée into the Cellule Liée champ, puis fermez la boîte de dialogue. Voir la capture d'écran:
2. Sélectionnez la cellule lignée (C2), puis entrez la formule = SI (A2 = "Test", TRUE, FALSE) dans la barre de formule, puis appuyez sur la touche Entrer clé.
Notes: Dans la formule, A2 et Test sont la cellule et la valeur de cellule dont vous avez besoin pour cocher la case automatiquement en fonction.
3. Lors de la saisie de la valeur «Test» dans la cellule A1, la case à cocher correspondante sera cochée automatiquement. Voir la capture d'écran:
Remarque: cette formule n'est pas sensible à la casse.
Cochez la case en fonction de la valeur de la cellule avec le code VBA
Vous pouvez exécuter le code VBA suivant pour que la case soit cochée en fonction de la valeur de la cellule dans Excel.
1. Cliquez avec le bouton droit sur Onglet Feuille avec la case cochée en fonction de la valeur de la cellule, puis cliquez sur Voir le code dans le menu contextuel.
2. dans le Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans la fenêtre Code.
Code VBA: cochez la case en fonction de la valeur de la cellule
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2").Value = "Test" Then
ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn
Else
ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
End If
End Sub
Notes: Dans le code, A2 et Test sont la cellule et la valeur de cellule dont vous avez besoin pour cocher la case automatiquement en fonction. La case à cocher 1 est le nom de la case à cocher.
3. presse autre + Q touches pour fermer la fenêtre Microsoft Visual Basic pour Applications.
Lors de la saisie de la valeur «Test» dans la cellule A2, la case à cocher spécifiée sera cochée automatiquement.
Notes: Ce code est sensible à la casse.
Conseil: Si vous souhaitez insérer plusieurs cases à cocher dans une plage sélectionnée en bloc, vous pouvez essayer le Cases à cocher d'insertion par lots utilité de Kutools for Excel, ou insérez par lots plusieurs boutons d'options avec le Boutons d'option d'insertion par lots utilitaire. En outre, vous pouvez supprimer toutes les cases à cocher à la fois avec le Cases à cocher de suppression par lots utilitaire comme ci-dessous les captures d'écran montrées. Tu peux aller à téléchargez Kutools pour Excel! (30 jours d'essai gratuit).
Articles connexes:
- Comment modifier une valeur ou une couleur de cellule spécifiée lorsque la case est cochée dans Excel?
- Comment mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel?
- Comment insérer un horodateur dans une cellule si une case à cocher est cochée 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!