Excel - Couleur onglet en fonction cellule
Fermé
caro
-
15 juin 2009 à 15:30
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 15 juin 2009 à 16:29
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 15 juin 2009 à 16:29
A voir également:
- Excel - Couleur onglet en fonction cellule
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Excel fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
5 réponses
smartway14
Messages postés
822
Date d'inscription
mercredi 15 octobre 2008
Statut
Membre
Dernière intervention
8 octobre 2011
185
15 juin 2009 à 15:50
15 juin 2009 à 15:50
bonjour;
vous pouvez faire ça via VBA
vous pouvez faire ça via VBA
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
15 juin 2009 à 15:57
15 juin 2009 à 15:57
Salut,
A adapter, code à placer dans le code feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
End If
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
A adapter, code à placer dans le code feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
End If
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
qmike
Messages postés
1506
Date d'inscription
mardi 19 juillet 2005
Statut
Membre
Dernière intervention
18 juin 2012
594
15 juin 2009 à 16:00
15 juin 2009 à 16:00
bonjour
tiens une piste
Private Sub Workbook_Open()
Range("a1").Select
If ActiveCell.Value = "CHMOL" Then
ActiveSheet.Tab.ColorIndex = 6
Else
ActiveSheet.Tab.ColorIndex = 3
End If
End Sub
tiens une piste
Private Sub Workbook_Open()
Range("a1").Select
If ActiveCell.Value = "CHMOL" Then
ActiveSheet.Tab.ColorIndex = 6
Else
ActiveSheet.Tab.ColorIndex = 3
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
15 juin 2009 à 16:29
15 juin 2009 à 16:29
Re,
j'ai répondu un peu vite, à mettre dans le code feuille, si F9 affiche CHMOL onglet Vert si non onglet sans couleur
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F9") = "CHMOL" Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = -4142
End If
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
j'ai répondu un peu vite, à mettre dans le code feuille, si F9 affiche CHMOL onglet Vert si non onglet sans couleur
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F9") = "CHMOL" Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = -4142
End If
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
