(RESOLU)nombre de jours ouvrables USF

[chaelie2015]

Bonjour FoRum
je souhaite calculer le nombre de jours ouvrable?
A+

 

[Yaloo]

Re : nombre de jours ouvrables USF

Bonjour chaelie,

Vois avec le fichier ci-joint macro glaner ici

A+

Martial

 

[chaelie2015]

Re : nombre de jours ouvrables USF

Bonsoir Martial
merci pour la réponse c'est super; mais je souhaite calculer les jours ouvrables simple de la semaine de cette façon
de Lundi a samedi sans dimanche
a+

 

[Yaloo]

Re : nombre de jours ouvrables USF

Il suffit de modifier la fonction comme ça :

Function nb_jours_ouvrés(date_début, date_fin) As Integer
Dim nb_jours_calendaires, nb_jours_non_ouvrés, date_i
    ' contrôle dates ------------------------------
    If Not IsDate(date_début) Then
        MsgBox "la date début n'est pas une date "
        Exit Function
    End If
    If Not IsDate(date_fin) Then
        MsgBox "la date fin n'est pas une date "
        Exit Function
    End If
    If date_fin < date_début Then
        MsgBox "la date fin n'est pas supérieure à la date début "
        Exit Function
    End If
    ' nb jours calendaires ------------------------------
    nb_jours_calendaires = date_fin - date_début
   
    ' détection jours non ouvrés ------------------------------
    nb_jours_non_ouvrés = 0
    For date_i = date_début To date_fin
        If DatePart("w", date_i, vbMonday) = 7 Then
            nb_jours_non_ouvrés = nb_jours_non_ouvrés + 1
        End If
    Next
    '---------------------------------------------------------------
    ' nb jours ouvrés  ------------------------------
    nb_jours_ouvrés = nb_jours_calendaires - nb_jours_non_ouvrés
End Function

 

[chaelie2015]

Re : nombre de jours ouvrables USF

Bonsoir yaloo
merci pour la reponse est ce que tu peux m'expliquer ce code

 ' détection jours non ouvrés ------------------------------
   nb_jours_non_ouvrés = 0
    For date_i = date_début To date_fin
        If DatePart("w", date_i, vbMonday) = 7 Then
            nb_jours_non_ouvrés = nb_jours_non_ouvrés + 1
        End If
    Next

merci par avance

 

[Yaloo]

Re : nombre de jours ouvrables USF

Bonjour,

Pour toutes les dates comprise entre les 2 dates, si la date correspond a un dimanche alors on ajoute 1 à nb_jours_non_ouvrés

A+

 

[chaelie2015]

Re : nombre de jours ouvrables USF

Bonjour yaloo
merci pour ces détails
Problème Résolu
A+

 

[chaelie2015]

Re : nombre de jours ouvrables USF

Bonjour yaloo
merci pour ces détails
Problème Résolu
A+