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: