Bonjour
Comment affecter une couleur d'onglet spécifique en fonction de la valeur
d'une cellule:
Exemple : si A1 = 1 onglet de feuille est rouge
si A1 = 2 onglet de feuille est vert
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie :
Sub Test() Sheets("Feuil1").Select With Sheets("Feuil1") If [A1] = 1 Then .Tab.ColorIndex = 3 ElseIf [A1] = 2 Then .Tab.ColorIndex = 4 End If End With End Sub
Cordialement. Daniel "fcbparis" a écrit dans le message de news:
Bonjour Comment affecter une couleur d'onglet spécifique en fonction de la valeur d'une cellule: Exemple : si A1 = 1 onglet de feuille est rouge si A1 = 2 onglet de feuille est vert
Merci d'avance pour votre aide
Bonsoir.
Essaie :
Sub Test()
Sheets("Feuil1").Select
With Sheets("Feuil1")
If [A1] = 1 Then
.Tab.ColorIndex = 3
ElseIf [A1] = 2 Then
.Tab.ColorIndex = 4
End If
End With
End Sub
Cordialement.
Daniel
"fcbparis" <fcbparis@discussions.microsoft.com> a écrit dans le message de
news: BA212736-BA18-45BC-B16E-9753BFFF3D6D@microsoft.com...
Bonjour
Comment affecter une couleur d'onglet spécifique en fonction de la valeur
d'une cellule:
Exemple : si A1 = 1 onglet de feuille est rouge
si A1 = 2 onglet de feuille est vert
Sub Test() Sheets("Feuil1").Select With Sheets("Feuil1") If [A1] = 1 Then .Tab.ColorIndex = 3 ElseIf [A1] = 2 Then .Tab.ColorIndex = 4 End If End With End Sub
Cordialement. Daniel "fcbparis" a écrit dans le message de news:
Bonjour Comment affecter une couleur d'onglet spécifique en fonction de la valeur d'une cellule: Exemple : si A1 = 1 onglet de feuille est rouge si A1 = 2 onglet de feuille est vert
