Question : Se débarasser de couleur d'étiquette sur toutes les étiquettes entre 2 étiquettes

J'ai un groupe d'étiquettes entre le nom « PE » d'étiquette et « DTP » ce je veux dégager la couleur de avant que je coure le class= les " lineNumbers " >

1 de >

Sub " de 
 " clair " de 

  
  class= > " clair " de 

    solutions >Related 
    class= 
title= " couleur du href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335572.html " de Change de class= si le nom d'étiquette apparaît dans list
  

Réponse : Se débarasser de couleur d'étiquette sur toutes les étiquettes entre 2 étiquettes

'A fixé le typo sur le tabname de fin
ClearColors secondaire ()
Début = 0
mydefault = 16
Pour chaque feuille dans ActiveWorkbook.Sheets
Si Sheet.Name = « PE » puis
  Début = 1
  mydefault = Sheet.Tab.ColorIndex
ElseIf (début = 1) puis

  Si (Sheet.Name <> « DTP ») puis

  Sheet.Tab.ColorIndex = mydefault '(pas sure si c'est votre couleur d'étiquette de défaut - vous pouvez devoir changer ce nombre)
 ElseIf Sheet.Name = « DTP » puis
  Sortir le sous-marin
 Finir si

Finir si

Après
Sous-marin d'extrémité