Excel 2003 couleur des onglets Résolu/Fermé

Question

Bonjour

Comment changer la couleur de l'onglet en fonction de la valeur de la case A1 par exemple. Si A1 est rouge alors l'onglet est rouge, Si A1 est orange alors l'onglet est orange, Si A1 est vert alors l'onglet est vert. sans formule juste sur une couleur. Es ce possible ?

Et tout ceci automatiquement, en fait j'ai placé des conditions de couleurs sur la case en question en fonction de la date du jour.

cordialement

Olivier

f894009 · Answer

Bonjour,

Code VBA a metre dans VBA de l'onglet

Private Sub Worksheet_Change(ByVal Target As Range)
  'mettre le nom de l'onglet
  Worksheets("feuil1").Tab.Color = Range("A1").Interior.Color
End Sub


Bonne suite

magnetoliver · Answer

ca fonctionne mais il faut cliquer sur une autre feuille pour que la couleur change.
Merci c'est sympa

f894009 · Answer

Re,

mettez cela en plus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'mettre le nom de l'onglet
  Worksheets("feuil1").Tab.Color = Range("A1").Interior.Color
End Sub

Excel 2003 couleur des onglets

3 réponses

Discussions similaires