Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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

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é pour Office

🤖 Kutools AI Aide : Révolutionnez l'analyse de données avec : 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 de Kutools
Fonctionnalités populaires : Trouver, mettre en évidence ou marquer les doublons | Supprimer les lignes vides | Combinez les colonnes ou les cellules sans perte de données | Arrondir sans formule...
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 à sélection multiple...
Gestionnaire de colonnes : Ajouter un nombre spécifique de Colonnes | Déplacer des Colonnes | Alterner l’état de visibilité des Colonnes masquées | Comparer des plages & Colonnes...
Fonctionnalités phares : Mise au point de la grille | Affichage de conception | Barre de formule améliorée | Gestionnaire de Classeur & Feuille de calcul | Bibliothèque d’AutoTexte | Sélecteur de date | Merge Worksheets | 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’outils :12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...) |50+ Types de graphiques (Diagramme de Gantt, ...) |40+ Formules pratiques (Calculer l’âge en fonction de la date de naissance, ...) |19 outils d’insertion (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 la langue de votre choix – disponible en Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres !

Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !

Tous les modules complémentaires Kutools. Une seule installation

La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un installateur, une licence — installation en quelques minutes (compatible MSI)
  • Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
  • Essai complet30 jours — sans inscription, ni carte bancaire
  • Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels