VBA Colorier un label s'il correspond à un jour férié

Bonsoir à tous,

J'ai suivi des tutos pour créer un datepicker, je l'ai adapté un peu mais pour finaliser ce projet, je bute sur la gestion des jours fériés.

J'ai trouvé une macro que j'ai essayé d'adapter avec un CountIf, mais le résultat n'est pas probant. Je ne maitrise pas la syntaxe de cette fonction, ni l'écriture de cette macro d'ailleurs.

Si quelqu’un à une idée je suis preneur.

Private Sub TestLBL()

    Dim Ctrl As Object

    For Each Ctrl In Me.Controls 'Boucle sur tout les contrôles de l'userform
        If TypeOf Ctrl Is MSForms.Label Then 'Si le control est un label
            If WorksheetFunction.CountIf(Feuil4.Range("p2:p14"), Ctrl.Caption) > 0 Then 'Si le text de ce label est fériés alors
                Ctrl.BackColor = RGB(255, 0, 0)  'On colorie le fond du label en rouge
            Else 'sinon
                Ctrl.BackColor = &H80000005 ' on colorie le texte du label en blanc
            End If
        End If
    Next Ctrl
End Sub

La macro est appelée avec un Call dans l'initialisation du formulaire.

D'avance merci à ceux qui se pencheront sur mon problème.

Bonne fin d'année à tous.

Cordialement.

Bonjour,

Un test

Bonjour à tous,

Bonjour M12,

Merci pour ton test, c'est tout à fait ce que je souhaitais.

Une bonne fin d'année et bonne continuation.

Cordialement.