Donner une couleur à un onglet en fonction d'une valeur

Question

Je cherche à donner une couleur à un onglet en fonction de la valeur d'une cellule dans la feuille correspondant à cet onglet. Exemple : A1 = 1 alors l'onglet devient bleu, A1 = 2 alors l'onglet devient rouge Merci d'avance...

Amadéus · Answer

Le Code dans Feuil1 déclenche la macro dont le code est dans le module https://www.excel-pratique.com/~files/doc2/CouleurOnglet.xls Cordialement...

Nad-Dan · Answer

Amadeus, dans le code Sub CouleurOnglet() , on peut supprimer aussi l'instruction Range("A1").Select qui ne sert pas vu que tu utilises le Target de la sub de la feuille. Bon dimanche Amicalement Dan...

Amadéus · Answer

Merci. Comme tu peux le voir, je fais des efforts, mais je ne suis pas d'un grand niveau VBA. Amicalemenr...

Nad-Dan · Answer

Re, Non c'est Dan... et pas Nad Amicalement Dan...

AbiBow · Answer

Si tu as plusieurs feuiilles à faire avec de la couleur

Dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Call CouleurOnglet(Sh, Target)
End If
End Sub

Et dans un module

Sub CouleurOnglet(Sh As Object, Target As Range)
With Sh
If Target = 1 Then
.Tab.ColorIndex = 5
ElseIf Target = 2 Then
.Tab.ColorIndex = 3
End If
End With
End Sub

Si plusieurs choix de couleur prévoir un Select Case

En espérant que je n'ai pas encore polluer (Nad)

Nad-Dan · Answer

Abibow, la réponse est pertinente. Par contre, merci de lire notre Charte qui s'applique autant aux demandeurs qu'à ceux qui répondent. Tes interventions n'en seront que plus appréciées. Extrait : Amicalement Nad...