Onglet en couleur selon une date

[sten83]

Bonjour, je reviens vers vous car j’ai des difficultés a trouver le bon code pour une macro.
Je voudrais que l'onglet d'un classeur se colorise ne fonction d'une date comprise dans une plage de cellule, j'ai bien essayé avec un code que j'avais mais cela ne fonctionne pas.
Je joint le fichier.
Merci de votre aide

 

[JCGL]

Re : Onglet en couleur selon une date

Bonjour à tous,

Peux-tu essayer avec ceci :

Private Sub Workbook_Open()
    Dim F As Worksheet
    For Each F In ThisWorkbook.Sheets
        For L = 5 To 39
            If F.Cells(L, 1) = Date Then
                F.Tab.ColorIndex = 3
                Exit Sub
            Else
                F.Tab.ColorIndex = xlNone
            End If
        Next L
    Next F
    VOLET1.Activate
    VOLET1.EnableSelection = xlUnlockedCells
    VOLET1.Protect "vinci"
    VOLET1.ScrollArea = "A1:P43"
    PARAMETRES.Visible = False
End Sub

A+ à tous

 

[sten83]

Re : Onglet en couleur selon une date

Merci pour ta réponse rapide , super!
Bonne journée, en plus aujourd'hui c'est mon anniversaire (57 ans)