Passer au contenu principal

Comment changer la couleur de la zone de texte en fonction de la valeur dans Excel?

Dans Excel, nous pouvons appliquer la fonction de mise en forme conditionnelle pour modifier la couleur d'arrière-plan en fonction de la valeur de la cellule, mais, dans cet article, je vais expliquer comment modifier la couleur de la zone de texte en fonction de la valeur de la cellule ou de la valeur dans la zone de texte.

Changer la couleur de la zone de texte en fonction de la valeur de la cellule avec le code VBA

Changer la couleur de la zone de texte en fonction de la valeur dans la zone de texte avec le code VBA


flèche bleue bulle droite Changer la couleur de la zone de texte en fonction de la valeur de la cellule avec le code VBA

Disons que si la valeur de la cellule dans A1 est supérieure à la valeur de la cellule dans B1, je veux que la zone de texte soit remplie de couleur rouge, au contraire, la zone de texte doit être remplie de couleur jaune. Veuillez réaliser ce travail avec les étapes suivantes:

1. Insérez une zone de texte en cliquant sur Développeur > insérer > Zone de texte (contrôle ActiveX), puis dessinez une zone de texte, voir capture d'écran:

couleur de la zone de texte doc basée sur la valeur 1

2. Cliquez ensuite avec le bouton droit de la souris sur la zone de texte et sélectionnez Voir le code dans le menu contextuel pour ouvrir le Microsoft Visual Basic pour applications fenêtre, puis remplacez le code d'origine par le code VBA suivant dans le module vide:

Code VBA: modifiez la couleur de la zone de texte en fonction des valeurs de cellule:

Private Sub TextBox1_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox1.BackColor = vbRed
    Else
        Me.TextBox1.BackColor = vbYellow
    End If
End Sub

couleur de la zone de texte doc basée sur la valeur 2

Notes: Dans le code ci-dessus, Zone de texte1 est le nom de la zone de texte que vous avez inséré, A1 et B1 sont les deux cellules sur lesquelles vous souhaitez modifier la couleur de la zone de texte, veuillez les modifier selon vos besoins.

3. Ensuite, enregistrez et fermez la fenêtre de code, puis quittez le Mode de conception, maintenant, si la cellule A1 est supérieure à B1, lorsque vous tapez du texte dans la zone de texte, elle sera remplie de couleur rouge, et si A1 est inférieure à B1, lors de la saisie de la valeur dans la zone de texte, elle sera remplie de couleur jaune, voir capture d'écran:

couleur de la zone de texte doc basée sur la valeur 3


flèche bleue bulle droite Changer la couleur de la zone de texte en fonction de la valeur dans la zone de texte avec le code VBA

Si vous souhaitez modifier la couleur de la zone de texte en fonction de la valeur de la zone de texte, par exemple, lorsque la valeur de la zone de texte est comprise entre 1 et 10, la couleur remplie de la zone de texte est rouge, la couleur de la zone de texte est verte si la valeur est comprise entre 11 et 20, si est autres valeurs, la couleur de la zone de texte est jaune. Pour traiter cette tâche, veuillez appliquer le code VBA ci-dessous.

1. Après avoir inséré une zone de texte, faites un clic droit dessus et sélectionnez Voir le code dans le menu contextuel pour ouvrir le Microsoft Visual Basic pour applications fenêtre, puis remplacez le code d'origine par le code VBA suivant dans le module vide:

Code VBA: modifiez la couleur de la zone de texte en fonction de la valeur de la zone de texte:

Private Sub TextBox1_Change()
    On Error Resume Next
    Select Case TextBox1.Value
        Case 1 To 10:
            TextBox1.BackColor = vbRed
        Case 11 To 20:
            TextBox1.BackColor = vbGreen
        Case Else:
            TextBox1.BackColor = vbYellow
    End Select
End Sub

couleur de la zone de texte doc basée sur la valeur 4

Notes: Dans le code ci-dessus, Zone de texte1 est le nom de la zone de texte dans laquelle vous êtes inséré et vous pouvez modifier les valeurs et la couleur d'arrière-plan du code par les vôtres.

2. Ensuite, enregistrez et fermez la fenêtre de code, puis quittez le Mode de conception, maintenant, si vous entrez la valeur entre 1 et 10 dans la zone de texte, sa couleur d'arrière-plan deviendra rouge, la valeur entre 11 et 20, la couleur d'arrière-plan de la zone de texte deviendra verte, d'autres valeurs, elle deviendra jaune comme illustré ci-dessous:

couleur de la zone de texte doc basée sur la valeur 5


Articles Liés:

Comment insérer une image dans la zone de texte?

Comment définir une valeur par défaut dans une zone de texte?

Comment autoriser uniquement la saisie de nombres dans la zone de texte?

Comment appliquer la vérification orthographique dans la zone de texte?

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez 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 les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

Description


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Nevermind, I figured it out. Instead of making the event which triggers the change "Textbox1_GotFocus()", I made it "Worksheet_SelectionChange(ByVal Target As Range)". Now any time the value in one of the cells changes, the textbox color changes automatically.
This comment was minimized by the moderator on the site
For me, when trying to change the textbox color value based on two cell values, the textbox only updates if you type something into the textbox. I need it to update automatically. Guess I'll just have to learn VBA to figure out why.
This comment was minimized by the moderator on the site
Can someone provide an example workbook so I can see this working? I keep trying but to no avail. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations