Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Onglet actif en couleur

Onglet actif en couleur

2 réponses
Avatar
Michel
Bonsoir,

Comment faire pour que l'onglet de la feuille active passe
automatiquement en rouge par exemple

Merci de l'aide

M.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Garette
Bonsoir,

Le code suivant le fait mais ça ne sert pa à grand chose car lorsque
l'onglet est selectionné, il est blanc :-(

Pour passer en rouge
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = 3
End Sub

Pour repasser en normal
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = -4142
End Sub

Il vaut presque mieux faire l'inverse ou mieux, sans code, mettre tous les
onglets dans une couleur et celui qui est selectionné passe en blanc :-)



"Michel" a écrit dans le message de news:

Bonsoir,

Comment faire pour que l'onglet de la feuille active passe automatiquement
en rouge par exemple

Merci de l'aide

M.




Avatar
Michel
Garette avait énoncé :

Merci pour le code.


Il vaut presque mieux faire l'inverse ou mieux, sans code, mettre tous les
onglets dans une couleur et celui qui est selectionné passe en blanc :-)

Effectivement je n'y avait pas pensé (remarque judicieuse) :-)

M.