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.
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 :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels