couleur onglet de feuille

[bobbyboon]

Bonjour et gloire a ceux qui travaillent

je recherche un code pour mettre en rouge (par exemple) l'onglet d'une feuille qui serait active.
Si on clique sur un autre onglet de feuille , celui de la feuille selectionnée devient rouge et l'ancien onglet devient neutre (blanche).

Thank!

 

[tototiti2008]

Re : couleur onglet de feuille

Bonjour Bobbyboon,

Peut-être un truc comme ça, à mettre dans thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Tab.Color = 255
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Sh.Tab.Color = xlAutomatic
End Sub

 

[Caillou]

Re : couleur onglet de feuille

Bonjour,

Deux procédures, une à l'activation de la feuille, l'autre qd on pars

Code à rajouter dans la partie Workbook du Classeur :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Sh.Tab.Color = 255
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  Sh.Tab.ColorIndex = xlNone
End Sub

Caillou

 

[bobbyboon]

Re : couleur onglet de feuille

Tros fort !!!! big respect !!!!
Merci