Excel - Couleur onglet en fonction cellule Fermé

Question

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

smartway14 · Answer

bonjour;
vous pouvez faire ça via VBA

Mike-31 · Answer

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)

qmike · Answer

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

caro · Answer

je vais essayer ça.

Merci...

Mike-31 · Answer

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)

Excel - Couleur onglet en fonction cellule

5 réponses

Discussions similaires