Accéder au contenu principal

Comment modifier la valeur ou la couleur d'une cellule spécifique lorsque la case à cocher est cochée dans Excel ?

Author: Siluvia Last Modified: 2025-08-06

Cet article explique comment modifier la valeur ou la couleur d'une cellule spécifique à l'aide d'une case à cocher. Par exemple, lorsque une certaine case à cocher est cochée, la valeur ou la couleur de fond d'une cellule spécifique sera automatiquement modifiée. Veuillez suivre les méthodes ci-dessous étape par étape pour y parvenir.

Modifier la valeur d'une cellule spécifique lorsque la case à cocher est cochée avec une formule
Modifier la valeur d'une cellule spécifique lorsque la case à cocher est cochée avec du code VBA
Modifier la couleur d'une cellule spécifique lorsque la case à cocher est cochée avec du code VBA


Modifier la valeur d'une cellule spécifique lorsque la case à cocher est cochée avec une formule

Supposons que vous ayez besoin que la cellule A1 soit remplie de la valeur « test » lorsque la case à cocher 1 est cochée. Et videz la cellule lorsqu'elle est décochée. Veuillez procéder comme suit.

Vous devez d'abord lier la case à cocher à une certaine cellule, puis appliquer une formule pour y parvenir.

1. Pour lier la case à cocher à une certaine cellule, veuillez la sélectionner, puis entrez = référence de cellule dans la Barre de formule et appuyez sur la touche Entrée. Ici, je lie la case à cocher 1 à la cellule C2 en entrant =C2 dans la Barre de formule après avoir sélectionné la case à cocher.

enter a formula into the Formula Bar after selecting the checkbox

Pour une case à cocher Contrôle ActiveX, veuillez cliquer dessus avec le bouton droit et sélectionner Propriétés dans le menu contextuel. Dans la boîte de dialogue Propriétés, entrez la cellule liée dans le champ CelluleLiée, puis fermez la boîte de dialogue. Voir capture d'écran :

select Properties and set options

2. Sélectionnez la cellule dont vous avez besoin de changer la valeur (ici, je sélectionne A1), puis entrez la formule =SI(C2,"Test"," ") dans la Barre de formule, et appuyez sur la touche Entrée. Voir capture d'écran :

Select the cell to change its value and enter a formula

Remarque : Dans la formule, C2 est la cellule liée à la case à cocher 1, « Test » est la valeur que vous devez afficher dans la cellule A1 lorsque la case à cocher est cochée.

Vous pouvez voir les résultats comme indiqué dans les captures d'écran ci-dessous après avoir coché ou décoché la case à cocher correspondante.

the value is changed based on the checkbox is checked or unchecked

a screenshot of kutools for excel ai

Découvrez la magie d'Excel avec Kutools AI

  • Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
  • Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
  • Codage VBA : Écrivez et implémentez du code VBA sans effort.
  • Interprétation des formules : Comprenez facilement des formules complexes.
  • Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Modifier la valeur d'une cellule spécifique lorsque la case à cocher est cochée avec du code VBA

Vous pouvez également modifier la valeur d'une cellule spécifique lorsque la case à cocher est cochée avec du code VBA. Veuillez procéder comme suit.

1. Faites un clic droit sur l'Onglet Feuille contenant la valeur de cellule que vous devez modifier en fonction de la case à cocher, puis cliquez sur Affichage Code dans le menu contextuel.

2. Dans la fenêtre Microsoft Visual Basic for Applications, veuillez copier et coller le code VBA ci-dessous dans la fenêtre Code.

Code VBA : Modifier la valeur d'une cellule spécifique lorsque la case à cocher est cochée

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

click View Code and insert the code into the sheet module

Remarque : Dans le code, ChekBox1 est le nom de la Case à cocher (Contrôles ActiveX). Vous pouvez le modifier selon vos besoins.

3. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

4. Sélectionnez une cellule vide (A1) dont vous souhaitez modifier la valeur en fonction de la case à cocher, et cochez la case à cocher1 dans votre feuille de calcul. Maintenant, une boîte de dialogue Kutools pour Excel apparaît, veuillez entrer la valeur que vous souhaitez voir apparaître dans la cellule vide sélectionnée, puis cliquez sur le bouton OK. Voir capture d'écran :

enter the value you want to be populated in the selected blank cell

Ensuite, la valeur spécifiée s'affiche immédiatement dans la cellule sélectionnée. Et lorsque vous décochez la case à cocher, la cellule sera vide.

the specified value is displayed if check the checkbox, otherwise, blank shown

Remarque : Ce code vous rappellera d'entrer la valeur texte de manière répétitive chaque fois que vous cochez la case à cocher.


Modifier la couleur d'une cellule spécifique lorsque la case à cocher est cochée avec du code VBA

Cette section vous montrera comment modifier la couleur d'une cellule spécifique lorsque la case à cocher est cochée avec du code VBA.

1. Faites un clic droit sur l'Onglet Feuille contenant la couleur de cellule que vous devez modifier en fonction de la case à cocher, puis cliquez sur Affichage Code dans le menu contextuel.

2. Dans la fenêtre Microsoft Visual Basic for Applications, veuillez copier et coller le code VBA ci-dessous dans la fenêtre Code.

Code VBA : Modifier la couleur d'une cellule spécifique lorsque la case à cocher est cochée

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

click View Code and inser the code into the sheet module

Remarque : Dans le code, ChekBox1 est le nom de la Case à cocher (Contrôles ActiveX). Vous pouvez le modifier selon vos besoins.

3. Sélectionnez une cellule dont vous avez besoin de changer la couleur de fond, puis cochez la case à cocher. Vous pouvez voir que la couleur de remplissage de la cellule sélectionnée change au rouge. Et la cellule sélectionnée sera remplie sans couleur de fond après avoir décoché la case à cocher. Voir captures d'écran :

fill color of the selected cell is change if check the chekbox, otherwise, no fill color


Articles connexes :

Meilleurs outils de productivité Office

🤖 Kutools AI Aide : Révolutionnez l'analyse de données grâce à : Exécution intelligente   |  Générer du code  |  Créer des Formules personnalisées  |  Analyser des données et générer des graphiques  |  Appeler les Fonctions améliorées
Fonctionnalités populaires : Trouver, mettre en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Combiner les colonnes ou cellules sans perdre de données   |  Arrondir...
Super RECHERCHEV : Recherche multi-critères    Recherche multi-valeurs  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante avec sélection multiple ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer des colonnes  |  Basculer l’état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités à la une : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & de feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Chiffrer/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 des ensembles d’outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   Plus de50 types de graphiques (Diagramme de Gantt, ...)   |   Plus de40 formules intelligentes (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils dinsertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et bien plus encore
Utilisez Kutools dans votre langue préférée: compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de40 autres langues !

Dynamisez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité la plus essentielle pour vous...


Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail

  • Activez la modification 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, au lieu d’ouvrir de nouvelles fenêtres.
  • Augmentez votre productivité de50% et réduisez des centaines de clics de souris chaque jour!