Excel VBA : soustraire 3 jours ouvrés a date [Résolu/Fermé]

Signaler
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Bonjour,

Je cherche a effectuer une soustraction de 3 jours ouvrés a une date présente dans une cellule Excel.

J'ai pour le moment ecris :
Cells(Lig001, 22).Value = Cells(Lig001, 22).Value - 3

(c'est dans une boucle)
Mais bien évidement, le 3 correspond a des jours calendaires.
Sauriez vous comment soustraire des jours ouvrés svp ?

2 réponses

Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
19
J'ai trouvé ma réponse.
Peut être que ce sera utile à quelqu'un. Il suffit d'écrire :

Dim Marge as long
Marge = -3

Cells(Lig001, 22).Value = Application.WorksheetFunction.WorkDay(Cells(Lig001, 22).Value, Marge)

Et la colonne 22 de la ligne en cours (c'est dans une boucle) recevra la valeur suivnte : valeur de la colonne 22 de la ligne ne cours - 3 jours ouvrés.
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62866 internautes nous ont dit merci ce mois-ci