couleur onglet / valeur d'une cellule

[Laurent]

bonjour

y a t il un moyen de faire varier la couleur d'un onglet dans une feuille excel selon la valeur d'une cellule de la feuille qu'il represente

exemple si j'ai en A1=1 alors l'onglet est vert, si c'est A=-1 alors il est rouge etc ....

Merci

 

[Tom_Tom]

Bonsoir Laurent

Ce code devra marcher:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = 1 Then
ActiveSheet.Tab.ColorIndex = 10
ElseIf Range("A1").Value = -1 Then
ActiveSheet.Tab.ColorIndex = 3
End If
End Sub



@+

 

[Laurent]

merci,

par contre, mon fichier cree des onglets, comment faire pour que ton code se mette sur toutes les feuilles ainsi cree ?

encore merci

 

[Tom_Tom]

Bojour LAurent et le forum


Au lieu de mettre dans la ou les onglets, tu mets dans l'objet Workbook pour que ça marche dans tous les onglets:



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1").Value = 1 Then
ActiveSheet.Tab.ColorIndex = 10
ElseIf Range("A1").Value = -1 Then
ActiveSheet.Tab.ColorIndex = 3
End If
End Sub


@+