Excel 2003 changement automatique des couleurs de l'onglets

Fermé
magnetoliver Messages postés 19 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Pouvez vous m'aidez a trouver une macro pour que la couleur de l'onglet change automatiquement en fonction de la couleur d'une cellule (A1) en l'occurrence.

Cordialement

2 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour

    essaies ceci

    Public Sub Coul()
    Dim c As Long
    c = ActiveSheet.Range("A1").Interior.ColorIndex
    ActiveSheet.Tab.ColorIndex = c
    End Sub

    bonne suite
    0