couleur d'onglet selon code couleur dans cellule

DoubleZero

XLDnaute Barbatruc

• 14 Novembre 2014

• #2

Re : couleur d'onglet selon code couleur dans cellule

Bonjour, eastwick, le Forum,

Comme ceci ?

Code:

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 🙂

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 14 Novembre 2014

• #3

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.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Novembre 2014

• #4

Re : couleur d'onglet selon code couleur dans cellule

Re-bonjour,

eastwick à dit:

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

Cliquez pour agrandir...

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

A bientôt 🙂

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 14 Novembre 2014

• #5

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Novembre 2014

• #6

Re : couleur d'onglet selon code couleur dans cellule

Re-bonjour,

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

A bientôt 🙂

 

Pièces jointes

• 00 - eastwick - Couleur d'onglet selon code couleur dans cellule a1.xlsm

  20.1 KB · Affichages: 44

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 14 Novembre 2014

• #7

Re : couleur d'onglet selon code couleur dans cellule

Merci beaucoup

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 14 Novembre 2014

• #8

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Novembre 2014

• #9

Re : couleur d'onglet selon code couleur dans cellule

Re-bonjour,

Comme ceci (cf. le code dans ThisWorkbook) ?

A bientôt 🙂

 

Pièces jointes

• 00 - eastwick - Couleur d'onglet selon code couleur dans cellule a1 - V2.xlsm

  26.4 KB · Affichages: 46

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Novembre 2014

• #10

Re : couleur d'onglet selon code couleur dans cellule

salut

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

Code:

'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

 

Dernière édition: 15 Novembre 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Novembre 2014

• #11

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 😉

VB:

'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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 14 Novembre 2014

• #12

Re : couleur d'onglet selon code couleur dans cellule

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Novembre 2014

• #13

Re : couleur d'onglet selon code couleur dans cellule

Re



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

Code:

'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

 

Dernière édition: 14 Novembre 2014

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 15 Novembre 2014

• #14

Re : couleur d'onglet selon code couleur dans cellule

re

Staple1600 à dit:

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

Cliquez pour agrandir...

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à :

Code:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Novembre 2014

• #15

Re : couleur d'onglet selon code couleur dans cellule

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

Staple1600 à dit:

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

Cliquez pour agrandir...

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

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif