Excel 2003 couleur des onglets

Résolu
magnetoliver Messages postés 19 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

3 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. magnetoliver Messages postés 19 Statut Membre
     
    ca fonctionne mais il faut cliquer sur une autre feuille pour que la couleur change.
    Merci c'est sympa
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0