thomasdu40
-
Modifié par thomasdu40 le 9/06/2010 à 11:20
Bonjour,
Voilà mon problème est que sur un fichier Excel (excel version 2002) et qui possède plusieurs onglets, je souhaiterai changer la couleur du deuxième, du troisième onglet et du quatrième onglet depuis le premier onglet. En résumé, je voudrai sur la 1ere feuille dans une cellule A54 par exemple si jamais j'ai le texte "ConstatsISO" qui apparaît, que l'onglet intitulé "ConstatsISO" qui est en fait le deuxième onglet du fichier apparaisse d'une certaine couleur.
Cellule A55 du premier onglet si apparaît "ConstatsIFS", que l'onglet intitulé "ConstatsIFS" qui est en fait le troisième onglet du fichier apparaisse d'une certaine couleur,....
Cellule A56 du premier onglet si apparaît "ConstatsBRC", que l'onglet intitulé "ConstatsBRC" qui est en fait le quatrième onglet du fichier apparaisse d'une certaine couleur.
J'ai intégré la formule ci-dessous mais ca marche pas :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A54") = "ConstatsISO" Then
ActiveWorkbook.Sheets("ConstatsISO").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("ConstatsISO").Tab.ColorIndex = -4142
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A55") = "ConstatsIFS" Then
ActiveWorkbook.Sheets("ConstatsIFS").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("ConstatsIFS").Tab.ColorIndex = -4142
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A56") = "ConstatsBRC" Then
ActiveWorkbook.Sheets("ConstatsBRC").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("ConstatsBRC").Tab.ColorIndex = -4142
End If
End Sub