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
Configuration: Windows XP Firefox 3.0.11
5 réponses
-
bonjour;
vous pouvez faire ça via VBA -
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) -
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 -
-
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)
