modifier la couleur d'un onglet en fonction d'une cellule Fermé

Question

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

ccm81 · Answer

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

The_boss_68 · Answer

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

beneclik · Answer

Merci beaucoup pour vos codes.
Je vais les essayer

ccm81 · Answer

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

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

4 réponses

Discussions similaires