problème pour enlevé les jours fériés [Résolu]

[titi67]

j'ai un code qui permet de calculer les jours travaillés, mais a cela j'aimerai ne pas compter les jours fériés en sachant que les dates de jours fériés sont dans une autres feuilles dans les cellules deB1 à B20. Je ne sait pas comment faire quelqu'un peut-il m'aider?
je joins le code pour calculer les jours ouvrés.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Function NbreJoursOuvrés(Date1, Date2)
    Dim tjour(7) As String
    Dim vNbjours As Currency
    Dim vNbjours2 As Currency
    Dim vNbjours3 As Currency
    Date1 = DateValue(UserForm1.TextBox1.Value)
    Date2 = DateValue(UserForm1.TextBox2.Value)
    tjour(1) = 0 'dimanche
    tjour(2) = 1 'lundi
    tjour(3) = 1 'mardi
    tjour(4) = 1 'mercredi
    tjour(5) = 1 'jeudi
    tjour(6) = 1 'vendredi
    tjour(7) = 0 'samedi
    For i = Date1 To Date2
        If UserForm1.CheckBox1.Value = True Then tjour(Weekday(Date1)) = 2
        If UserForm1.CheckBox2.Value = True Then tjour(Weekday(Date2)) = 2
        If tjour(Weekday(i)) = 1 Then vNbjours = vNbjours + 1
        If tjour(Weekday(i)) = 2 Then vNbjours2 = vNbjours2 + 0.5
        If Date1 = Date2 And UserForm1.OptionButton1.Value = True Then vNbjours = vNbjours / 2
        If Date1 = Date2 And UserForm1.OptionButton2.Value = True Then vNbjours = vNbjours / 2
    Next i
    NbreJoursOuvrés = vNbjours + vNbjours2
End Function

[Maxence HUBICHE]

Pourquoi ne pas utiliser la fonction NB.JOURS.OUVRES ???

[ouskel'n'or]

Pour la syntaxe de jours.ouvres dans VBA, tu peux jeter un oeil là

Edit
Pour les jours ouvrés, regarde plutôt là, le troisième exemple du premier post. Si tu as plusieurs jours fériés dans la période concernées, ils sont traités par l'intermédiaire d'un tableau.