Bonjour a tous

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
J'ai des dates sur la colonne G et jaimerais créer une variable qui prend la valeur de toutes les cellule de cette colonne 1 par 1 => puis calcule la nouvelle date avec cette function et la place dans la cellue de la colonne I .

Merci