XL 2016 EVOLUATE

[Bruce68]

Bonjour à tous

J'aimerais avec EVOLUATE trouvé sur internet ," mettre les S , D et jours féries" dans le textBox7 entre les dates de deux DTPicker1 et DTPicker2 mais cela ne fonctionne pas .
Voir fichier joint.
Je vous remercie de votre aide

 

[job75]

Bonjour Bruce68,

Ne pas utiliser DTPicker , cet outil n'est pas présent sur tous les ordinateurs (le mien par exemple).

A+

 

[pierrejean]

Bonjour Bruce
Salut Gerard
A tester:

TextBox8 = Application.WorksheetFunction.NetworkDays(CDate(B), CDate(A), Feries)

 

[Staple1600]

Bonjour le fil, Bruce68, job75, pierrejean

pierrejean
A vue de nez, si Feries est une plage nommée, c'est plutôt, non ?
TextBox8 = Application.WorksheetFunction.NetworkDays(CDate(B), CDate(A), [Feries])

 

[Bruce68]

Bonjour pierrejean et le forum
Merci pierrejean
La formule fonctionne bien pour les jours ouvrés mais ne décompte pas les jours fériés (Feries est le tableau des dates des jours fériés)
Je vous remercie de votre aide

 

[pierrejean]

Re

Voir l'adaptation de Staple que je salue

 

[Bruce68]

Bonjour Staple 1600 et le forum
Merci pour cette formule
celle ci fonctionne correctement après plusieurs essais

 

[Bruce68]

Grand merci à vous deux pour la formule