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

Fermé

beneclik Messages postés 13 Date d'inscription jeudi 18 juillet 2013 Statut Membre Dernière intervention 16 janvier 2024 - 12 janv. 2019 à 20:52
ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 - 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

A voir également:

Changer couleur texte onglet excel
Excel cellule couleur si condition texte - Guide
Changer dns - Guide
Liste déroulante excel - Guide
Piratage facebook changer mot de passe - Guide
Somme si couleur excel - Guide

4 réponses

Réponse 1 / 4

The_boss_68 Messages postés 926 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 30 avril 2024 175
12 janv. 2019 à 22:39

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

Réponse 2 / 4

ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
12 janv. 2019 à 22:07

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

Réponse 3 / 4

beneclik Messages postés 13 Date d'inscription jeudi 18 juillet 2013 Statut Membre Dernière intervention 16 janvier 2024 2
13 janv. 2019 à 23:50

Merci beaucoup pour vos codes.
Je vais les essayer

Réponse 4 / 4

ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
14 janv. 2019 à 19:00

Re

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

Cdlmnt

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Changer la couleur d'une cellule selon son texte

Discussions similaires

Newsletters