Modifier la couleur d'un onglet en fonction d'une cellule
beneclik
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
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
- Changer dns - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Somme si couleur excel - Guide
- Word et excel gratuit - Guide
4 réponses
Bonsoir
A mettre dans la feuille même
Slts
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
Bonjour
Essaies ceci
Option Explicit
Cdlmnt
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
