Menu

Modifier la couleur d'un onglet en fonction d'une cellule

Messages postés
11
Date d'inscription
jeudi 18 juillet 2013
Dernière intervention
13 janvier 2019
- - Dernière réponse : ccm81
Messages postés
8730
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
18 janvier 2019
- 14 janv. 2019 à 19:00
Bonsoir,
je suis sûre que la question a déjà été posée mais je ne retrouve pas vos réponses.

Je cherche un programme VBA qui colorise en vert mon onglet si la case k 1 est égale à zéro sinon l'onglet reste gris

Bien entendu, dans la case K1, j'ai le résultat d'un calcul.

Dans la mesure du possible, je voudrais que la colorisation de l'onglet se fasse automatiquement dès que K1=0

le but est de savoir quels sont les onglets qui sont terminés et ceux où il me reste des choses à faire

Merci d'avance à vous tous
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
561
Date d'inscription
dimanche 15 novembre 2015
Dernière intervention
14 janvier 2019
60
1
Merci
Bonsoir

A mettre dans la feuille même

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("k1") = 0 Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = -4142
End If
End Sub


Slts

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 56031 internautes nous ont dit merci ce mois-ci

Commenter la réponse de The_boss_68
Messages postés
8730
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
18 janvier 2019
1863
0
Merci
Bonjour

Essaies ceci

Option Explicit

Const cel = "K1"
Const vert = 4

Public Sub OK()
Dim ws As Worksheet
For Each ws In Sheets
  If ws.Range(cel).Value = 0 Then
    ws.Tab.ColorIndex = vert
  Else
    ws.Tab.ColorIndex = xlColorIndexNone
  End If
Next ws
End Sub

Cdlmnt
Commenter la réponse de ccm81
Messages postés
11
Date d'inscription
jeudi 18 juillet 2013
Dernière intervention
13 janvier 2019
2
0
Merci
Merci beaucoup pour vos codes.
Je vais les essayer
Commenter la réponse de beneclik
Messages postés
8730
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
18 janvier 2019
1863
0
Merci
Re

Bien entendu, dans la case K1, j'ai le résultat d'un calcul.
http://www.cjoint.com/c/IAorJPyCmnB

Cdlmnt
Commenter la réponse de ccm81
Strategy | The Girl in the Spiders Web 2018 WEB-DL x264-FGT | Advance (68)