onglet en couleur

[tootsi]

bonjour

ma question est très simple est il possible de colorier un onglet à partir du remplissage d'un cellule
ex: en A1 il y a "ok" donc je veux que l'onglet soit colorier en rouge

merci d'avance

tootsi

 

[Ti_]

Re : onglet en couleur

ça peut se faire en passant par une fonction personnalisée (que tu colles dans un module de ton fichier)

Function CouleurOnglet(ByVal Coul%) 'Ti
If Coul < 0 Then Coul = -4142
Application.Caller.Worksheet.Tab.ColorIndex = Coul
End Function


Ensuite tu écris la formule suivante dans une cellule de ta feuille

=CouleurOnglet(SI(A1="ok";3;-1))

le paramètre passé à CouleurOnglet est un index de couleur (ici 3= rouge). Si ce paramètre est inférieur à 0, l'onglet n'aura aucune couleur.

 

[tootsi]

Re : onglet en couleur

re bonjour

merci beaucoup j'ai essayé et cela marche impeccable
je cherche depuis maintenant plusieurs semaines et j'admire la rapidité dont tu as fais le code

je voudrais voir si j'ai bien compris
Function CouleurOnglet(ByVal Coul%) 'Ti
là tu appelles la fonction que représente le 'TI?

If Coul < 0 Then Coul = -4142
ici tu dis si ma couleur sup à 0 alors c'est = -4142 que représente le -4142 le rouge?

Application.Caller.Worksheet.Tab.ColorIndex = Coul
j'appelle la feuille et je colorie en rouge

j'apprends en vba et je voudrais savoirsi je déchiffre bien car j'ai souvent du mal à appliquer ce que je veux faire

Merci beaucoup pour cette réponse rapide

Tootsi

 

[Ti_]

Re : onglet en couleur

dans l'ordre
Ti, c'est ma signature, je te conseille de ne pas l'enlever; comme ça si tu dois revenir plus tard pour modifier un peu cette macro, je saurai que c'est moi qui l'avais écrite (sinon j'aurai tendance à laisser son auteur présumé la corriger...)

If Coul < 0 Then Coul = -4142

-4142 c'est le code qui dit que l'onglet ne prend aucune couleur particulière, donc je lui dis que si la valeur passée en paramètre est inférieure à 0, ça veut dire que l'onglet sera incolore (-4142), sinon il prend la valeur que tu lui as indiquée (3 dans la formule, ce qui correspond au rouge)

Application.Caller.Worksheet, c'est pour qualifier la feuille à laquelle appartient la cellule appelante.

 

[tootsi]

Re : onglet en couleur

Bonjour



le code que TI a crée marche super bien sur windows XP mais pas sur windows 2000 donc voici ma question sur windows 2000 peut on changer la couleur des onglets si oui le code est il différent de celui de windows XP

Bonne journée et merci d'avance

Tootsi

 

[Evelynetfrancois]

Re : onglet en couleur

bonjour
toutes les versions "anciennes" d excel ne permettent pas de colorier les onglets ,c'est une fonction assez ressente
ton probleme est peut ete là
bonne prog
E et F