XL 2016 EVOLUATE

job75

XLDnaute Barbatruc

• 10 Août 2019

• #2

Bonjour Bruce68,

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

A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Août 2019

• #3

Bonjour Bruce
Salut Gerard
A tester:

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Août 2019

• #4

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])

 

Dernière édition: 10 Août 2019

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 10 Août 2019

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Août 2019

• #6

Re

Voir l'adaptation de Staple que je salue

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 10 Août 2019

• #7

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

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 10 Août 2019

• #8

Grand merci à vous deux pour la formule

 

Vote positif 0 Vote négatif