Andrew sait comment changer la couleur des onglets de feuille de calcul manuellement.

Cependant, il aimerait un moyen de modifier la couleur de l’onglet en fonction d’une valeur dans une cellule de la feuille de calcul.

Pour ce faire, vous devrez utiliser une macro. La clé est que vous souhaitez modifier la propriété Color de l’objet Tab, de cette manière:

ActiveSheet.Tab.Color = vbRed

La logique que vous utilisez pour arriver au point de faire une telle attribution de couleur dépend de ce que vous voulez faire et du moment où vous voulez le faire. En supposant que vous souhaitiez modifier la couleur de l’onglet en fonction de ce qui se trouve dans la cellule A1, vous pouvez utiliser une macro comme celle-ci:

Private Sub Worksheet_Change(ByVal Target As Range)

MyVal = Range("A1").Text

With ActiveSheet.Tab         Select Case MyVal             Case "0"

.Color = vbBlack             Case "1"

.Color = vbRed             Case "2"

.Color = vbGreen             Case "3"

.Color = vbYellow             Case "4"

.Color = vbBlue             Case "5"

.Color = vbMagenta             Case "6"

.Color = vbCyan             Case "7"

.Color = vbWhite             Case Else                 .ColorIndex = xlColorIndexNone         End Select     End With End Sub

Vous devez ajouter la macro au code de la feuille de calcul dont vous souhaitez modifier l’onglet. (Cliquez avec le bouton droit sur l’onglet de la feuille et choisissez Afficher le code dans le menu contextuel. Collez le code dans cette fenêtre de code.) La macro saisit tout ce qui se trouve dans la cellule A1, puis utilise une structure Sélectionner la casse pour modifier la couleur de l’onglet. La logique modifie la couleur si A1 contient 0 à 7. S’il y a autre chose (ou rien du tout), la propriété ColorIndex est utilisée pour redéfinir la couleur de l’onglet sur sa valeur par défaut.

La macro peut être modifiée de sorte que ce qu’elle teste soit une chaîne de texte (telle que «Noir», «Rouge», etc.) ou un mot clé (tel que «Faible» ou «Élevé»). Vous pouvez également utiliser différentes désignations de couleur avec la propriété Color, comme la fonction RVB:

.Color = RGB(255, 0, 0)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (13138) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.