Onglet en couleur en fonction du mois

[malinsard]

Bonjours à tous.
J'ai un classeur avec 12 onglet un pour chaque mois, j'aimerais pour à l'ouverture du classeur que l'onglet du mois en cours soit en couleur.
Merci pour votre aide précieuse.

 

[phlaurent55]

Re : Onglet en couleur en fonction du mois

Bonjour malinsard,

avec ce code:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For i = 1 To 12
    With ActiveWorkbook.Sheets(i).Tab
        .Color = xlAutomatic
        .TintAndShade = 0
    End With
Next i

With ActiveWorkbook.Sheets(Month(Now)).Tab
        .Color = 255
        .TintAndShade = 0
End With
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

[piga25]

Re : Onglet en couleur en fonction du mois

Bonjour,

Voir si cela peut convenir


Edit: Bonjour Philippe, pas rafraîchie.

 

[DoubleZero]

Re : Onglet en couleur en fonction du mois

Bonjour, malinsard, Philippe 🙂, piga 🙂, le Forum,

Une autre suggestion en pièce jointe.

Option Explicit
Private Sub Workbook_Open()
    Dim o As Worksheet
    For Each o In Worksheets
        o.Tab.ColorIndex = xlNone
    Next
    With Sheets(Month(Date)): .Tab.ColorIndex = 3: .Activate: End With
End Sub

A bientôt 🙂

 

[JCGL]

Re : Onglet en couleur en fonction du mois

Bonjour à tous,
Salut les ami(e)s,

Pour le plaisir de vous croiser...
Avec mise en évidence des trimestres sur le fichier de 00.

Option Explicit

Private Sub Workbook_Open()
    Dim o As Worksheet
    On Error Resume Next
    For Each o In Worksheets
        o.Tab.ColorIndex = Int((o.Name + 2) / 3) + 4
    Next
    With Sheets(Month(Date)): .Tab.ColorIndex = 3: End With
    Feuil1.Activate
End Sub

Bises ++ à 00 et Abdou
A++

A+ à tous

 

[DoubleZero]

Re : Onglet en couleur en fonction du mois

Re-bonjour,

@ JCGL 😀,

Bonjour + bises +

A bientôt 😀😀

 

[malinsard]

Re : Onglet en couleur en fonction du mois

Merci à tous