Comment changer la couleur de l'onglet de feuille en fonction de la valeur de cellule ?

Normalement, vous pouvez facilement et rapidement changer la couleur des onglets dans Excel. Mais avez-vous déjà essayé de changer la couleur de l'onglet en fonction de la valeur d'une cellule dans une feuille de calcul ? Si cette tâche vous intéresse, je vais vous parler de quelques codes pour colorer l'onglet de la feuille en fonction d'une valeur spécifique de cellule dans Excel.

Changer la couleur d'un onglet de feuille en fonction de la valeur de cellule avec le code VBA

Changer plusieurs onglets de feuilles en fonction de la valeur de cellule avec le code VBA

Changer la couleur d'un onglet de feuille en fonction de la valeur de cellule avec le code VBA

Par exemple, je veux que la couleur de l'onglet de la feuille actuelle soit verte si la valeur de la cellule A1 est le texte « Oui », la couleur de l'onglet sera rouge si le texte dans A1 est « Non », et la couleur de l'onglet sera bleue si la valeur dans la cellule A1 est n'importe quel autre texte comme le montre la capture d'écran suivante :

1. Cliquez avec le bouton droit sur l'onglet de la feuille dont vous souhaitez changer la couleur en fonction des données dans la cellule A1, puis choisissez Affichage du code dans le menu contextuel.

2. Dans la fenêtre Microsoft Visual Basic for Applications, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Changer la couleur d'un onglet de feuille en fonction de la valeur de 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 baser la couleur de l'onglet, « Oui » et « Non » sont les textes dont vous avez besoin, vous pouvez les modifier selon vos besoins, et vous pouvez également changer la couleur dans le code comme vous le souhaitez.

3. Ensuite, enregistrez et fermez cette fenêtre de code. Maintenant, lorsque vous entrez le texte « Oui » dans la cellule A1, la couleur de l'onglet actuel deviendra verte, et lorsque vous entrez le texte « Non » dans la cellule A1, la couleur de l'onglet deviendra rouge, et si un autre texte est saisi dans la cellule A1, la couleur de l'onglet deviendra automatiquement bleue.

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 !

Changer plusieurs onglets de feuilles en fonction de la valeur de cellule avec le code VBA

Si vous devez changer la couleur de plusieurs onglets de feuilles en fonction d'une valeur de cellule, voici également un code qui pourrait vous aider, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications, dans la fenêtre ouverte, double-cliquez sur ThisWorkbook sous la section VBAProject, puis copiez et collez le code ci-dessous dans le Module vide :

Code VBA : Changer plusieurs onglets de feuilles en fonction de la valeur de 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 baser la couleur de l'onglet, Sheet1, Sheet2, Sheet3 sont les feuilles de calcul dont vous souhaitez colorer les onglets. KTE, KTW, KTO sont les valeurs de cellules dans A1 sur lesquelles vous souhaitez baser la couleur des 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 Master, l'onglet Sheet1 sera coloré en rouge, lorsque vous entrez KTO dans la cellule A1, la feuille Sheet2 sera colorée en vert, et lorsque vous entrez KTW dans la cellule A1, la feuille Sheet3 sera colorée en bleu, voir capture d'écran :