Bonsoir,
J'ai ça dans mes tiroirs, avec l'explication en prime.
Fonction personnalisée (à écrire où copier-coller dans un module)
Code:
Function CouleurdesOnglets(ByVal Coul%)
If Coul < 0 Then Coul = 42
Application.Caller.Worksheet.Tab.ColorIndex = Coul
End Function
Puis, n'importe où dans la Feuille.
Formule d'activation du Code
=CouleurdesOnglets(SI(NON(ESTVIDE(B3));3;-1))
Ici, la couleur de départ de l'onglet est dans le module; Code 42 (Turqoise) et la couleur lorsque B3 n'est plus vide Code dans la Formule; 3 rouge.
Cette fonction est valable pour toutes les Feuilles du Classeur, à condition, d'y inscrire une formule "CouleurdesOnglets"
Tu peux aussi composer ta formule différemment avec par exemple:
=CouleurdesOnglets(SI(B3>=100;3;-1))
Cordialement,
Amadéus
https://www.excel-pratique.com/~files/doc/OngletCouleur.xls