Couleur onglet en fonction valeur cellule

[nijseri]

Bonjour,

Dans un document tous les sheet on dans la case W2 le code couleur correspondant à son statut

J'aimerai qu'une macro récupère ce code et mettent l'onglet automatiquement dans la couleur de cette case

En résumé que dès que l'information change dans cette case que la couleur change instatanément pour le moment en reprenant quelques un de vos codes mais je dois à chaque fois activer le sheet pour avoir la modification

Merci d'avance de votre aide

Eric

 

[BOISGONTIER]

Re : Couleur onglet en fonction valeur cellule

Bonjour,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  On Error Resume Next
  ActiveWorkbook.Sheets(Sh.Name).Tab.ColorIndex = Sheets(Sh.Name).[W2].Interior.ColorIndex
End Sub

JB

 

[nijseri]

Re : Couleur onglet en fonction valeur cellule

ok compris mais

1°) là il récupère la couleur je devrais récupérer le code couleur ex : 1 noir 2 blanc ,...

2°) En modifiant une ligne, le changement se fait dans toutes les feuilles j'aimerais donc que si je change dans ma première page qu'il mettent la couleur à jour pour toute les sheet du document

Encore merci

 

[BOISGONTIER]

Re : Couleur onglet en fonction valeur cellule

-Clic-Droit onglet
-Visualiser le code
-Dans ThisWorkBook


JB

 

[nijseri]

Re : Couleur onglet en fonction valeur cellule

j'éatais trop tard pour la modif de message
--------------------------------------------------------------------------------

ok compris mais

1°) là il récupère la couleur je devrais récupérer le code couleur ex : 1 noir 2 blanc ,...

2°) En modifiant une ligne, le changement se fait dans toutes les feuilles j'aimerais donc que si je change dans ma première page qu'il mettent la couleur à jour pour toute les sheet du document

Encore merci

 

[BOISGONTIER]

Re : Couleur onglet en fonction valeur cellule

Je ne comprends pas:

JB

 

[piwa]

Bonjour,

J'ai trouvé une partie de ma solution grace à ce fil, pour changer de couleur de l'onglet.

PAr contre je souhaite l'adapter pour que la couleur chnage en Fonction du resultat d'une formule dans chaque feuille. Malheureusement cela ne fonctionne pas car il faut, dans cette solution VALIDER par entrée le cellule "Couleur"

Surement une activation particuliere, mais je patauge

Merci de votre Aide

 

[brje]

Bonjour,
Cela semble répondre à ma recherche sauf que je voudrais que le changement de coukeur de chaque onglet dépende de la valeur d'une cellule (cellute B1 par exemple) de l'onglet concerné.
avec la règle si B1 = 0 vert, si B1 <>0 alors rouge, si B1 vide alors couleur grise d'origine.

Je sais que ce sujet est ancien mais je tente quand même

Merci par avance pour votre aide

 

[mapomme]

Boinsoir @brje ,

Placez le code suivant dans le module de code associé à ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   CouleurOnglet
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect([b1], Target) Is Nothing Then CouleurOnglet
End Sub

Sub CouleurOnglet()
   If [b1] = "" Then
      ActiveSheet.Tab.ColorIndex = xlColorIndexNone
   ElseIf [b1] = 0 Then
      ActiveSheet.Tab.Color = vbGreen
   Else
      ActiveSheet.Tab.Color = vbRed
   End If
End Sub

 

[brje]

Merci pour le retour rapide, je regarde cela

 

[brje]

Parfait, merci beaucoup