Date d'expedition

bonjour a tous

dans le fichier joint je cherche a calculer le jour d’expédition / préparation

un membre du forum m'avais aider a préparer cette sub mais les jours d’expédition / préparation ont changé et je n'arrive pas a la modifier

avant les jours étais (lundi, mardi , jeudi) maintenant (lundi , mardi ,vendredi)

a savoir qu'il y a des client en "A pour B" & des clients en "A pour C"

dans la sub je pense avoir trouvé ou changer les jours d’expédition (If Weekday(dte) = 4 Or Weekday(dte) = 5 Then) 4 & 5 correspondant au jours ou il n'y a pas d’expédition / préparation

dans l'exemple joint si on écris A pour C livraison le 28/05/2021 parfait le jour d’expédition / préparation est correct

mais si on écris A pour B la date d’expédition / préparation est après la date de livraison et c'est la que je cale

amicalement

Bonjour,

Si le cas "A pour B" avec la date de livraison le "28 mai 2021" > la date de préparation devrait être le "25 mai 2021" ...

Dans ce cas ...

Sub livraison()    'Macro pour le' calcul du jour de preparation
    Dim dte As Date, C As Range, d&, x&
    d = IIf(Range("F3") = "A pour B", 1, 2)
    If Not IsDate(Range("H5")) And Range("H5") <> "" Then
        MsgBox "Saisie incorrecte.", 16
        Range("H5") = ""
        GoTo Fin
    End If
    dte = Range("H5")
    x = 0
boucle:
    dte = WorksheetFunction.WorkDay(dte, -d + x, Range("Feries"))
    If Weekday(dte) = 4 Or Weekday(dte) = 5 Then
        dte = dte - 1
        x = d 'x + d  <<< changement ici
        GoTo boucle
    End If
Fin:
    If Range("H5") = "" Then
        Range("H4") = ""
    Else
        Range("H4") = dte
    End If
    Range("B150") = Range("H4") + 120    'Affiche la DLUO a 120 jours en pied de page
End Sub

ric