couleur d'onglet selon code couleur dans cellule

Staple1600

XLDnaute Barbatruc

• 15 Novembre 2014

• #16

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

Code:

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 ?

 

Dernière édition: 15 Novembre 2014

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 16 Novembre 2014

• #17

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 ?

Cliquez pour agrandir...

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

 

Pièces jointes

• Vide.xlsm

  458.6 KB · Affichages: 34
• Vide.xlsm

  458.6 KB · Affichages: 41
• Vide.xlsm

  458.6 KB · Affichages: 35

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2014

• #18

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!

Code:

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

Par contre avec ceci, on obtient Faux

Code:

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

 

Dernière édition: 16 Novembre 2014

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 25 Novembre 2014

• #19

Re : couleur d'onglet selon code couleur dans cellule

Merci encore une fois !

 

Vote positif 0 Vote négatif