Comment modifier la couleur de l’onglet d’une feuille en fonction de la valeur d’une cellule ?
Généralement, il est facile et rapide de modifier la couleur d’un onglet dans Excel — mais avez-vous déjà essayé de la faire varier en fonction de la valeur d’une cellule ? Si cette idée vous séduit, découvrez quelques codes simples pour colorer automatiquement l’onglet d’une feuille selon la valeur d’une cellule spécifique dans Excel.
Modifier plusieurs Onglets de feuille en fonction de la valeur d’une cellule à l’aide d’un code VBA
Modifier la couleur de l’onglet d’une seule feuille en fonction de la valeur d’une cellule à l’aide d’un code VBA
Par exemple, je souhaite que la couleur de l’onglet Feuille de calcul actuelle devienne verte si la valeur de la cellule A1 est le texte « TRUE », rouge si le texte en A1 est « FALSE », et bleue si la valeur en A1 est tout autre texte, comme illustré dans la capture d’écran suivante :
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 Afficher le code dans le menu contextuel.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, copiez et collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA : Modifier la couleur de l’onglet d’une seule feuille en fonction de la valeur d’une 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 à partir de laquelle vous souhaitez colorer l’onglet. Les textes « True » et « False » sont ceux que vous devez utiliser ; vous pouvez les adapter à vos besoins, ainsi que modifier les couleurs dans le code selon vos préférences.
3. Fermez ensuite cette fenêtre de code. Désormais, dès que vous saisissez « True » dans la cellule A1, l’onglet actuel devient vert ; s’il s’agit de « False », il vire au rouge ; et pour toute autre valeur saisie en A1, la couleur de l’onglet bascule automatiquement vers le bleu.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Modifier plusieurs Onglets de feuille en fonction de la valeur d’une cellule à l’aide d’un code VBA
Si vous souhaitez modifier la couleur de plusieurs onglets de feuille en fonction de la valeur d’une cellule, voici un autre code qui pourrait vous être utile. Procédez comme suit :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Dans la fenêtre qui s’ouvre, double-cliquez sur Ce classeur sous la section VBAProject, puis copiez et collez le code ci-dessous dans le Module vide :
Code VBA : Modifier plusieurs Onglets de feuille en fonction de la valeur d’une 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 désignent respectivement la cellule et la feuille de calcul à partir desquelles vous souhaitez colorer les onglets. Les feuilles Feuil1, Feuil2 et Feuil3 sont celles dont vous souhaitez colorer les onglets. Enfin, les valeurs KTE, KTW et KTO correspondent aux contenus possibles de la cellule A1 qui déclenchent le changement de couleur. Vous pouvez adapter librement les références et les couleurs dans le code selon vos besoins.
2. Fermez ensuite cette fenêtre de code. Désormais, lorsque vous saisissez le texte KTE dans la cellule A1 de la feuille Master, l’onglet Feuil1 devient rouge ; si vous entrez KTO dans la cellule A1, Feuil2 devient vert ; et si vous entrez KTW dans la cellule A1, Feuil3 devient bleu. Voir la capture d’écran :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels