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 !

 

[DoubleZero]

Re : couleur d'onglet selon code couleur dans cellule

Bonjour, eastwick, le Forum,

Comme ceci ?

Option Explicit
Sub Onglets_colorer_selon_valeur_de_a1()
    Dim o As Worksheet
    For Each o In Worksheets
        If o.Range("A1") <> "" Then o.Tab.Color = o.Range("a1").Value
    Next
End Sub

A bientôt 🙂

 

[eastwick]

Re : couleur d'onglet selon code couleur dans cellule

Bonjour, apparemment ça ne fonctionne pas. J'ai collé votre code dans le code de l'onglet.

 

[DoubleZero]

Re : couleur d'onglet selon code couleur dans cellule

Re-bonjour,

... ça ne fonctionne pas. J'ai collé votre code dans le code de l'onglet.

Le code doit être placé dans un module standard.

A bientôt 🙂

 

[eastwick]

Re : couleur d'onglet selon code couleur dans cellule

ça vous ennuierait de me renvoyer le fichier avec le code SVP ? Je reste novice en VBA !

Merci

 

[DoubleZero]

Re : couleur d'onglet selon code couleur dans cellule

Re-bonjour,

Ci-après, le ficher contenant le code.

A bientôt 🙂

 

[eastwick]

Re : couleur d'onglet selon code couleur dans cellule

Merci beaucoup

 

[eastwick]

Re : couleur d'onglet selon code couleur dans cellule

Effectivement ça fonctionne mais en cliquant sur la macro. J'aimerais que en changeant le numéro du code couleur, l'onglet change de couleur automatiquement.

Merci

 

[DoubleZero]

Re : couleur d'onglet selon code couleur dans cellule

Re-bonjour,

Comme ceci (cf. le code dans ThisWorkbook) ?

A bientôt 🙂

 

[Si...]

Re : couleur d'onglet selon code couleur dans cellule

salut

on peut se dispenser de la boucle, n'est-ce pas Doublezero 😀 ?

'Dans ThisWorkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal R As Range)
  If R.Address <> "$A$1" Then Exit Sub
  Sh.Tab.Color = xlAutomatic  'en cas de saisie d'une lettre
   If IsNumeric(R) Then Sh.Tab.Color = R
  If R = "" Then Sh.Tab.Color = xlAutomatic
End Sub

 

[Staple1600]

Re : couleur d'onglet selon code couleur dans cellule

Bonsoir à tous

Pour le plaisir de croiser 00 et Si...
Aprés la version sans boucles , une version avec moins de si 😉

'Dans ThisWorkbook
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), R, IsEmpty(R), -4105)
End Sub

 

[eastwick]

Re : couleur d'onglet selon code couleur dans cellule

merci à tous... une des ces réponses fera bien mon bonheur !

 

[Staple1600]

Re : couleur d'onglet selon code couleur dans cellule

Re



Equus Xldnautatus vient de me dire que mon code est comme Philae, mal accroché 😉

'Donc je le remets d'équerre avec cet ajout, enfin j'espère ;-)
'Dans ThisWorkbook
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), R, Not IsNumeric(R), -4105, IsEmpty(R), -4105)
End Sub

 

[Si...]

Re : couleur d'onglet selon code couleur dans cellule

re

Equus Xldnautatus vient de me dire que mon code est comme Philae, mal accroché 😉

c'est marrant, l'echo m'a rapporté la même réflexion 😀😀!
Je corrige donc le code précèdent en ajoutant la ligne oubliée.
Mais pour insister lourdement sur le Si..., je donne celui là :

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

* il me semble Staple que tu aimes bien accompagner tes endives avec IIf

 

[DoubleZero]

Re : couleur d'onglet selon code couleur dans cellule

Bonjour, eastwick, Si... 😀, Staple1600 😀, le Forum,

... je le remets d'équerre avec cet ajout, enfin j'espère ;-)

Chez bibi, les endives sont noires 😉 lorsque la cellule a1 est vidée de sa valeur 🙁

A bientôt 🙂🙂