Changer la couleurs de plusieurs onglets

Bonjour,

Je suis un petit nouveau sur le forum, je pratique un peu de VBA depuis quelques temps, je me debrouille pas trop mal, mais j'aurais une question concernant un sujet déjà créé et clôturé :

https://forum.excel-pratique.com/excel/changer-couleur-d-un-onglet-26887

J'ai réussi à faire fonctionner cette formule, mais voici ce que je souhaite :

- pour exemple on va dire que j'ai 10 fournisseurs, avec 10 onglets différents

- Dans une cellule spécifique de chaque onglet, vérifier si la case est : A commander, Commande OK, ou RAS.

- du coup avoir une couleur de chaque onglet, en fonction de cette valeur de cellule, et que la couleur reste apparente même si on change d'onglet.

ps: je suis sous office 2016

Bonjour jux74, le forum,

Un exemple...à adapter...(la case est A1).

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) 'code à placer dans le module ThisWorkBook
  For Each sh In ThisWorkbook.Worksheets
   Select Case UCase(sh.Range("A1").Value)
    Case "A COMMANDER": sh.Tab.ColorIndex = 3 'rouge
    Case "COMMANDE OK": sh.Tab.ColorIndex = 4 'vert
    Case "RAS": sh.Tab.ColorIndex = 5 'bleu
    Case Else:: sh.Tab.ColorIndex = xlNone 'rien
   End Select
  Next sh
End Sub

Cordialement,

C'est exactement ca !

Merci bcp xsorsankukai, le fichier sera beaucoup plus clair avec ces couleurs