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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager