Ajouter les jours fériés dans textbox. Userform

Bonsoir,

Je profite de l'occasion pour m'aidez à ajouter dans ces codes

Tbox10 = My_date + 4 ........................................

et

Tbox10 = My_date + 14 ........................................

les dates des jours fériés français enregistrés dans une liste de la feuil3 nommé" Liste Jour Férie" dans la plage ("A2:A12")

vous voyez genre formule Excel :

=SI(B1="";"";SERIE.JOUR.OUVRE(B1;4;C:\mes documents\[classeur.xlsx]Liste Jour Férie'!$A$2:$A$12))

et

=SI(B1="";"";SERIE.JOUR.OUVRE(B1;14;C:\mes documents\[classeur.xlsx]Liste Jour Férie'!$A$2:$A$12))

Voici le code complet :

Private Sub Tbox6_AfterUpdate() 'Process ouvrable

Dim My_date As Date
Tbox6 = CDate(Tbox6)
My_date = Tbox6
If Tbox5 = "Livrable Actions Client" Then
Tbox10 = My_date + 4
Else
Tbox10 = My_date + 14
End If
End Sub

Bonjour,

Autre point : utilisez les balises de code en cliquant sur l'icone </> et en collant votre code dans la fenêtre

Cordialement

je ne peux pas le joindre il dépasse le 1.5 MO

Essayez en le compressant ou en utilisant une plateforme spécifique pour placer des fichiers.

bonjour Dan,

ci joint le fichier , j'ai compressé l'image intégré dans le userform , je n'ai pas fait attention qu'elle faisait 2.6MO.

Vous pouvez m'expliquer ce que vous voulez par un exemple