Question : Changer la couleur d'étiquette si le nom d'étiquette apparaît dans la liste

C'est le code que je dois changer la couleur d'une étiquette si elle apparaît dans une liste, il travaille très bien pour les bilans simples où les étiquettes sont appelées a, b, c, d, et semblable, mais j'ai un cahier de travail où l'étiquette contient un nombre entre parenthèses après la valeur qui sera dans la liste (l'étiquette ressemblera à 123z4567-1 (1) et qui évaluent dans la liste seront 123z4567-1).  Je veux seulement l'étiquette colorée si elle apparaît dans cette liste, n'importe quelle aide que vous puissiez offrir ? class= " lineNumbers " >

1 de >

Sub " de 
 " clair " de 

  
  class= > " clair " de 

    solutions >Related 
    class= 
title= " du href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335659.html de Get de " qRelatedChild " de class= entre 2 étiquettes " débarrassé de couleur d'étiquette sur toutes les étiquettes entre 2 tabs
  

Réponse : Changer la couleur d'étiquette si le nom d'étiquette apparaît dans la liste

ColorTabs secondaire ()
Faible TabName comme corde

X = 1

'Feuilles (« en attendant la liste »). Activer
Faire jusqu'aux cellules (x, 1).Value = ""

  TabName = cellules (x, 1).Value

Pour chaque feuille dans ActiveWorkbook.Sheets
S'InStr (Sheet.Name, TabName) puis
 Sheet.Tab.ColorIndex = 4
Finir si
Après

  X = x + 1
 
Boucle
Sous-marin d'extrémité


'pour être exact