Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Ordonnancement : Calcul d'une date de fin

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marcel luthi

XLDnaute Nouveau
Dans une macro, je souhaite calculer la date de fin d'une opération à partir d'une date de début et d'une durée (en jours) en tenant compte des jours ouvrables et des jours fériés.
Voici l'instruction qui ne fonctionne pas (erreur 438) :
finop = Application.WorksheetFunction.serie.jour.ouvre(débutop, 15,ferié)
où débutop = date de début issue de la table
15 = nombre de jours
ferié = table des jours fériés
Est-ce que la formule et les paramètres sont corrects ?
Par avance merci pour votre aide
 
Solution
Bonsoir Sylvanu,
Je te remercie infiniment, j'ai testé ta proposition et ça fonctionne très bien. Les dates de début et de fin des opérations des ordres de fabrication et/ou...
Bonjour Marcel,
VBA ne parle qu'anglais.
Essayez :
VB:
finop = Application.WorksheetFunction.WORKDAY(débutop, 15,ferié)
En supposant que debutop et férié soient correct;
Le mieux dans ce genre de cas est d'utiliser l'enregistreur de macro.
Dans une cellule vous mettez :
Code:
=SERIE.JOUR.OUVRE(14/6/2021;15;G5:H18)
Il traduit par :
Code:
ActiveCell.FormulaR1C1 = "=WORKDAY(14/6/2021,15,R[-2]C[4]:R[11]C[5])"
et après vous bidouillez.
NB: Je suppose que débutop, et ferié sont des tableaux VBA. Si ce sont des tableaux XL alors c'est : [débutop], et ,[ferié].
 
Dernière édition:
Bonsoir Sylvanu,
Je te remercie infiniment, j'ai testé ta proposition et ça fonctionne très bien. Les dates de début et de fin des opérations des ordres de fabrication et/ou des projets sont calculées en tenant compte des jours ouvrables uniquement. C'est parfait.
Encore un immense merci pour ton aide et la rapidité de ta réponse.
Bonne soirée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
866
Réponses
0
Affichages
331
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…