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:

---

Les meilleurs outils de productivité de bureau

Kutools for Excel Résout la plupart de vos problèmes et augmente votre productivité de 80 %

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!

Lire la suite... Téléchargement Gratuit... Achat...