couleur onglet / valeur d'une cellule

Laurent · 2 Septembre 2004

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 · 2 Septembre 2004

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 · 2 Septembre 2004

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 · 3 Septembre 2004

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

@+

couleur onglet / valeur d'une cellule

Laurent

Guest

Tom_Tom

Guest

Laurent

Guest

Tom_Tom

Guest

Discussions similaires