Comment changer la couleur de l'onglet de la feuille en fonction de la valeur de la cellule?
Normalement, vous pouvez changer la couleur de l'onglet facilement et rapidement dans Excel, mais avez-vous déjà essayé de changer la couleur de l'onglet en fonction de la valeur de la cellule dans une feuille de calcul? Si vous êtes intéressé par cette tâche, je parlerai de certains codes pour vous permettre de colorer l'onglet de la feuille en fonction d'une valeur de cellule spécifique dans Excel.
Changer la couleur d'un onglet de feuille en fonction de la valeur de la cellule avec le code VBA
Modifier plusieurs onglets de feuille en fonction de la valeur de la cellule avec le code VBA
Changer la couleur d'un onglet de feuille en fonction de la valeur de la cellule avec le code VBA
Par exemple, je veux que la couleur actuelle de l'onglet de la feuille soit verte si la valeur de la cellule dans A1 est le texte «TRUE», la couleur de l'onglet sera rouge si le texte de A1 est «FALSE» et la couleur de l'onglet sera bleue si la valeur de la cellule A1 est tout autre texte comme illustré ci-dessous:
1. Cliquez avec le bouton droit sur l'onglet de la feuille dont vous souhaitez modifier la couleur en fonction des données de la cellule A1, puis choisissez Voir le code dans le menu contextuel.
2. Dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA ci-dessous dans le Module fenêtre.
Code VBA: modifiez la couleur d'un onglet de feuille en fonction de la valeur de la cellule:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Remarque: Dans le code ci-dessus, A1 est la référence de cellule sur laquelle vous souhaitez colorer l'onglet en fonction de "Vrai","Faux”Sont le texte dont vous avez besoin, vous pouvez les modifier selon vos besoins et vous pouvez changer la couleur du code selon vos besoins.
3. Ensuite, enregistrez et fermez cette fenêtre de code, maintenant, lorsque vous entrez le texte "Vrai" dans la cellule A1, la couleur de l'onglet actuelle deviendra verte, et lorsque vous entrez le texte "Faux" dans la cellule A1, la couleur de l'onglet deviendra rouge, et si un autre texte est entré dans la cellule A1, la couleur de l'onglet deviendra automatiquement bleue.
Modifier plusieurs onglets de feuille en fonction de la valeur de la cellule avec le code VBA
Si vous devez modifier la couleur de plusieurs onglets de feuille en fonction d'une valeur de cellule, voici également un code qui peut vous aider, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre, dans la fenêtre ouverte, double-cliquez Ce classeur sous le VBAProjet section, puis copiez et collez le code ci-dessous dans l'espace vide Module:
Code VBA: modifiez plusieurs onglets de feuille en fonction de la valeur de la cellule:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Remarque: Dans le code ci-dessus, A1 et Master sont la cellule et la feuille de calcul sur lesquelles vous souhaitez colorer l'onglet, Sheet1, Sheet2, Sheet3 sont les feuilles de calcul dont vous souhaitez colorer les onglets. KTE, KTW, OMS sont les valeurs de cellule dans A1 sur lesquelles vous souhaitez colorer les onglets, vous pouvez modifier les références et les couleurs dans le code selon vos besoins.
2. Ensuite, enregistrez et fermez cette fenêtre de code, maintenant, lorsque vous entrez le texte KTE dans la cellule A1 de la feuille maître, l'onglet Sheet1 sera coloré en rouge, lorsque vous entrez KTO dans la cellule A1, la feuille Sheet2 sera colorée en vert, et quand vous entrez KTW dans la cellule A1, la feuille Sheet3 sera colorée en bleu, voir capture d'écran:
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!
