couleur d'onglet selon code couleur dans cellule

[eastwick]

Bonjour à toutes et tous,
Ci-joint un petit classeur. en A1 de chaque onglet un code couleur. J'aimerais simplement que chaque onglet se colorie automatiquement avec son code spécifié en A1.

En vous remerciant !

 

[Staple1600]

Re : couleur d'onglet selon code couleur dans cellule

Bonjour à tous

Pourquoi donc que le Switch pédale dans la semoule là où l'IIf carbure ?
J'ai essayé ceci

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal R As Range)
If R.Address <> "$A$1" Then Exit Sub
Sh.Tab.Color = Switch(IsNumeric(R) And R <> "", R, Not IsNumeric(R), -4105)
End Sub

Mais j'ai fait chou blanc ( à défaut d'endives 😉 )

Quelqu'un pour m'expliquer le pourquoi de comment ?

Remarque
Si IsNumeric(R) est true alors R<>"" est forcément vrai non ?

 

[Si...]

Re : couleur d'onglet selon code couleur dans cellule

salut

je ne suis pas un adepte du Switch mais il me semble que les options doivent s’exclurent mutuellement.

Remarque
Si IsNumeric(R) est true alors R<>"" est forcément vrai non ?

non, faut éviter de forcer 😛 (le surpoids est dû à l'image).

 

[Staple1600]

Re : couleur d'onglet selon code couleur dans cellule

Bonjour Si...

Pour ma remarque, j'avais remarqué que =ESTNUM(A1) renvoie FAUX si A1 est vide
Je m'embarque point alors dans VBA pour vérifier si cela est vrai aussi par macro
Or j'aurai du!

Sub a()
MsgBox IsNumeric([A1]) 'renvoie vrai
End Sub

Par contre avec ceci, on obtient Faux

Sub b()
MsgBox IsNumeric(Range("A1").Text)
End Sub

 

[eastwick]

Re : couleur d'onglet selon code couleur dans cellule

Merci encore une fois !