Discussion :

[diss10]

bonjour a tous

Voila donc je cherche a calculer mes dates estimée de réponse sans compter les weekend et jour férié (déja fait)
Mais je doit prendre en compte 2 types de demandes :

rapide : 2 jours
lente : 9 jours

J'ai une feuille excel ou je suis mes commandes sur la colonne "A" et je devrais avoir les date estimée sur la colonne "E"

Mon code pour sauter les weekend et jours férie

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
26
Public Function RespDelais(startD As Date, delais As Integer) As Date
 
'Return the estimated date of answser
Dim i As Double
Dim u As Integer
Dim k As Integer
u = 0
For i = 0 To delais
    If Weekday(DateAdd("d", i, startD), vbMonday) > 5 Then
        u = 2
        'Adds 2 days if it overlaps the weekend
    End If
Next i
 
If Weekday(DateAdd("d", delais + u, startD), vbMonday) = 6 Then
    k = 2
ElseIf Weekday(DateAdd("d", delais + u, startD), vbMonday) = 7 Then
    k = 1
        'Adds 2 days if it overlaps the weekend
Else
    k = 0
End If
 
RespDelais = DateAdd("d", delais + u + k, startD)
 
End Function

Je voudrais utiliser les dates sur ma colonne "A" a la place de la date aujourd’hui ! et prendre en compte les types de commandes ( + 2 jours ou 9 jours )


Merci beaucoup

[78chris]

Bonjour

Tu ne postes pas dans le forum VBA mais présentes un code...

C'est faisable sans VBA avec la fonction SERIE.JOUR.OUVRE