Microsoft 365 Colorer en Vert l'onglet actif

AIXELS · 5 Juin 2024

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 · 5 Juin 2024

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

VB:

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

Code:

Public OldC As Long

AIXELS · 5 Juin 2024

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

Microsoft 365 Colorer en Vert l'onglet actif

AIXELS

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

Discussions similaires