Excel - Couleur onglet en fonction cellule
caro
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Re-bonjour,
Une question comme ça pour l'esthétique... Y a t'il un moyen de modifier la couleur de l'onglet automatiquement en fonction du nom de l'entreprise que j'entre dans une cellule. Par exemple si je mets dans ma cellule F9 le nom de l'entreprise CHMOL la couleur de mon onglet devient vert???
Merci pour vos lumières
Une question comme ça pour l'esthétique... Y a t'il un moyen de modifier la couleur de l'onglet automatiquement en fonction du nom de l'entreprise que j'entre dans une cellule. Par exemple si je mets dans ma cellule F9 le nom de l'entreprise CHMOL la couleur de mon onglet devient vert???
Merci pour vos lumières
A voir également:
- Excel - Couleur onglet en fonction cellule
- Excel cellule couleur si condition texte - Guide
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
5 réponses
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)
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
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)
