Discussion :

[questionsguy]

Bonjour,

Pourriez-vous m'expliquer cette fonction pour calculer le nombre de jours ouvrés svp ?

Code :

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

1
2
3
4
5
6
7
 
For i = Début * 1 To Fin * 1 Step TimeValue("0:10")
    If Hour(i) >= 8 And Hour(i) < 18 And Day(i) = Day(i + TimeValue("0:10")) _
        And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _
        And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 10
    Next
    HeureOuvrées = x / 1440

- Weekday prend une date et renvoi le numéro du jour de la semaine, c'est ça ?
- CDate converti une date en date ?
- TimeValue, je n'ai pas compris...
- Pourquoi diviser par 60*24=1440 à la fin svp ?

Merci

[Philippe Tulliez]

Bonjour,
Ces tutoriels vous en apprendront plus sur le sujet

• Comprendre et gérer les dates sous Excel et en VBA
• Utiliser les fonctions Date et Heure sous Excel 2007

[Pierre Fauconnier]

Salut.

Depuis XL2007, on dispose de la fonction NB.JOURS.OUVRES.INTL (Excel) qui compte les jours ouvrés selon un régime hebdomadaire (par défaut Sam et Dim non prestés) et une plage optionnelle de dates de congés. Il faut noter que les deux jours bornes sont comptés.

Elle peut s'utiliser en VBA => NETWORKDAYS.INTL

Perso, pour le régime hebdomadaire, j'aime bien la chaine de caractères (non reprise dans la liste Excel) dans laquelle le 0 représente un jour ouvré et le 1 un jour férié, les sept positions allant du lundi au dimanche:
"0000011": régime habituel (sam et dim fériés);
"0001011": on travaille les un, mar, mer, ven et pas le jeu, sam, dim.


Astuce: Ca permet de compter le nombre de fois qu'un jour de la semaine particulier est présent dans une plage de dates: "0111111" permet de compter le nombre de lundis entre deux dates, ces dates comprises.

[questionsguy]

Merci beaucoup de votre aide