Microsoft 365 Colorer en Vert l'onglet actif

[AIXELS]

Bonjour à tous les Amis du Forum.
Est-il possible de colorer l'onglet actif en "Vert" et lui rendre
sa couleur d'origine après le choix d'un autre onglet qui lui
sera coloré en vert à son tour. Ainsi de suite...
Par avance, Merci pour votre aide.

 

[chris]

Bonjour
Par défaut l'onglet actif n'est coloré qu'à moitié + un trait en bas

Donc tu peux changer la couleur en vert mais ces 2 aspects subsisteront

Créer ces 2 codes dans le module du classeur

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sh.Tab
        OldC = .Color
        .Color = 65280
    End With

End Sub

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

Et dans un module standard

Public OldC As Long

 

[AIXELS]

Bonjour @chris
Merci pour ta réponse et ta judicieuse remarque.
Ça fonctionne très bien.
Merci pour ton aide.
Cordialement