Discussion :

[Walt51]

Bonjour,

J'ai un UserForme pour la rédaction des commandes.
Dans ce UF j'ai un ComboBoxDélai qui permet à l'utilisateur de choisir 1, 2, 3 ,4 ou 5 jours de délais.
Et de ce choix j'en déduit la date de livraison.
Exemple si nous sommes le 2 et choix 2 jours => on obtient le 4

Sachant que dans mon domaine on ne travail ni le samedi ni le dimanche.

Mon objectif:
Ne plus compter ni les samedi ni les dimanche:
- pour ne plus avoir comme date de livraison un samedi ou un dimanche.
- pour que par exemple si on est vendredi et qu'on choisi 2 jours de délais, cela me retourne mercredi et pas lundi (car on travail 2 jours , lundi et mardi donc livraison mercredi)

Avez vous une idée pour faire un comptage de la date du jour + x + 1 (si on compte un samedi) + 1 (si on compte un dimanche)

Voici mon code actuel qui ne prend pas en compte cette contrainte

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
If ComboBoxDélai.Value = "1 jour" Then
DateRetenue = DateAdd("d", 1, Date)
End If
 
If ComboBoxDélai.Value = "2 jours" Then
DateRetenue = DateAdd("d", 2, Date)
End If
 
If ComboBoxDélai.Value = "3 jours" Then
DateRetenue = DateAdd("d", 3, Date)
End If
 
If ComboBoxDélai.Value = "4 jours" Then
DateRetenue = DateAdd("d", 4, Date)
 
If ComboBoxDélai.Value = "5 jours" Then
DateRetenue = DateAdd("d", 5, Date)
 
End If

Merci d'avance
Walt

[eriiic]

Bonjour,

avec SERIE.JOUR.OUVRE() ou SERIE.JOUR.OUVRE.INTL()
En vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.WorkDay()
ou 
Application.WorkDay_Intl()

Tu peux même spécifier des fériés.
eric

[Invité]

Bonjour,
nbJours=val(replace(replace(ComboBoxDélai.Value , " jour"),"s"))Maintenant tu as listindex qui te retourne la position dans la liste!

[Walt51]

Bonjour,

avec SERIE.JOUR.OUVRE() ou SERIE.JOUR.OUVRE.INTL()
En vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.WorkDay()
ou 
Application.WorkDay_Intl()

Tu peux même spécifier des fériés.
eric

Merci c'est exactement ce qu'il me fallait

Nous sommes vendredi et si je choisi délai "1 jour" le code me retourne lundi et non plus samedi. Super!

Voici le code obtenu avec cette fonction qui ne compte que les jours de travail

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
If ComboBoxDélai.Value = "1 jour" Then
DateRetenue = Application.WorkDay(Date, 1) '+1 jour sans samedi ni dimanche => (date de départ, nb de jours)
End If
 
If ComboBoxDélai.Value = "2 jours" Then
DateRetenue = Application.WorkDay(Date, 2)
End If
 
If ComboBoxDélai.Value = "3 jours" Then
DateRetenue = Application.WorkDay(Date, 3)
End If
 
If ComboBoxDélai.Value = "4 jours" Then
DateRetenue = Application.WorkDay(Date, 4)
End If
 
If ComboBoxDélai.Value = "5 jours" Then
DateRetenue = Application.WorkDay(Date, 5)
End If

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateRetenue = Application.WorkDay(Date, ComboBoxDélai.ListIndex+1)