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 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:
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
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:
Changer la couleur de la zone de texte en fonction de la valeur dans la zone de texte avec le code VBASi 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
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:
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?
