Vba Jours Ouvrés

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion deniooo
  • Date de début Date de début

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 !

S'inscrire
D

deniooo

XLDnaute Occasionnel
Bonjours,
Aprés recherche dans le forum je ne trouve pas ce dont j'ai besoin.
J'ai dans une colonne la date de début et dans une autre la date de fin.
J'aimerai calculé le nombre de jours ouvrés (nombres de jours sans les WE et fériés).

J'ai bien pensé à diviser le nombre de jours par 7, arrondir et multiplier par 2. Pour les statistiques ça passe pour tous les mois sauf le mois de Mai, normal beaucoup de fériés.

J'ai bien vu comment faire avec les formules, mais il faut que je le fasse en VB.

Il doit bien exister une fonction dans ce style, mais je ne la connais pas.

Auriez vous une idée ?!
 
Trier par date Trier par votes
Re : Vba Jours Ouvrés

Bonjour denioo,

essaye ça :

Code: 
Function JoursOuvres(DateDeb As Variant, DateFin As Variant) As Long
    
    Dim Début As Date, Fin As Date
    Jours_ouvrés = 0
    On Error GoTo Err_Jours_ouvrés
    Début = CDate(DateDeb)
    Fin = CDate(DateFin)
    If Weekday(Début) = 1 Then
        Début = Début + 1
    ElseIf Weekday(Début) = 7 Then
        Début = Début + 2
    Else
        Jours_ouvrés = Jours_ouvrés + 7 - Weekday(Début)
        Début = Début + 9 - Weekday(Début)
    End If
    If Weekday(Fin) = 1 Then
        Fin = Fin + 1
    ElseIf Weekday(Fin) = 7 Then
        Fin = Fin + 2
    Else
        Jours_ouvrés = Jours_ouvrés - 7 + Weekday(Fin)
        Fin = Fin + 9 - Weekday(Fin)
    End If
    
    Jours_ouvrés = Jours_ouvrés + DateDiff("ww", Début, Fin) * 5
    Exit Function
Err_Jours_ouvrés:
    Jours_ouvrés = 0
End Function
 
Vote positif 0 Vote négatif
Re : Vba Jours Ouvrés

Bonjour,

fériés est le nom d'un champ contenant les jours fériés

Code: 
  d = #1/1/2008#
  f = Date
  z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """,fériés)")
  MsgBox z

Fonction personalisée:

Code: 
Function NbJoursOuvres(début, fin)
  Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
  Dim fériés(1 To 11)
  an = Year(début)
  If début > fin Then
    NbJoursOuvres = 0
  Else
    paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7) + _
      (6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
        ((19 * (an Mod 19) + 24) Mod 30) - 1
    fériés(1) = DateSerial(an, 1, 1)
    fériés(2) = DateSerial(an, 5, 1)
    fériés(3) = DateSerial(an, 5, 8)
    fériés(4) = DateSerial(an, 7, 14)
    fériés(5) = DateSerial(an, 8, 15)
    fériés(6) = DateSerial(an, 11, 1)
    fériés(7) = DateSerial(an, 11, 11)
    fériés(8) = DateSerial(an, 12, 25)
    fériés(9) = paques + 1
    fériés(10) = paques + 39
    fériés(11) = paques + 50
    NbJoursOuvres = 0
    For d = début To fin
      témoin = False
      For i = 1 To 11
       If d = fériés(i) Then témoin = True
      Next i
      If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then NbJoursOuvres = NbJoursOuvres + 1
    Next d
 End If
End Function


JB
Formation Excel VBA JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Vba Jours Ouvrés

je n'ai testé que la deuxiéme, d'ailleurs aprés tests, lorsque je lui passe en paramétre les valeurs de deux cellules dans lesquelles sont placées des date, la fonction fonctionne(biennnn) parfaitement.

Ce qui finalement est trés bien.

J'avais testé en rentrant une date en dur dans le code mais le format ne devait pas être bon.

Une idée ?!
 
Vote positif 0 Vote négatif
Re : Vba Jours Ouvrés

Je viens de trouver un probléme à la deuxiéme fonction,

Si fin = début alors la fonction renvoie 2.
Or il devrait renvoyer 1 !

condition suplémentaire ?!

De même, j'ai des dates qui ne sont pas égale (fin = début) parce que leurs heures sont différentes.

Ne peut-on pas travailler uniquemenet sur le jour/mois/année lorsque l'on a jj/mm/yyyy hh:mm:ss ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vba Jours Ouvrés

Je ne vois pas du tout comment utiliser int sur une date, lorsque je passe ma date ne paramétre du int il me renvoie 1..

J'ai dû rater quelque chose..

Peux tu m'expliquer ? ou m'envoyer vers un article qui me permettra de comprendre ?!
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vba Jours Ouvrés

Je n'aime pas travailler en aveugle.
Post ton fichier.


Code: 
Sub essai()
  d = #1/1/2008#
  f = Now
  z = Evaluate("NB.JOURS.OUVRES(""" & Int(d) & """,""" & Int(f) & """,fériés)")
  MsgBox z
End Sub

Code: 
Sub essai2()
  d1 = #1/1/2008#
  D2 = Now      ' date et heure
  MsgBox NbJoursOuvres(Int(d1), Int(D2))
End Sub
Function NbJoursOuvres(début, fin)
  Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
  Dim fériés(1 To 11)
  an = Year(début)
  If début > fin Then
    NbJoursOuvres = 0
  Else
    paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7) + _
      (6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
        ((19 * (an Mod 19) + 24) Mod 30) - 1
    fériés(1) = DateSerial(an, 1, 1)
    fériés(2) = DateSerial(an, 5, 1)
    fériés(3) = DateSerial(an, 5, 8)
    fériés(4) = DateSerial(an, 7, 14)
    fériés(5) = DateSerial(an, 8, 15)
    fériés(6) = DateSerial(an, 11, 1)
    fériés(7) = DateSerial(an, 11, 11)
    fériés(8) = DateSerial(an, 12, 25)
    fériés(9) = paques + 1
    fériés(10) = paques + 39
    fériés(11) = paques + 50
    NbJoursOuvres = 0
    For d = début To fin
      témoin = False
      For i = 1 To 11
       If d = fériés(i) Then témoin = True
      Next i
      If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then NbJoursOuvres = NbJoursOuvres + 1
    Next d
 End If
End Function

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

J
  • Question Question
XL 2019 Liste week-end et jours fériés
Réponses
12
Affichages
489
jean-mi58
J
C
  • Question Question
XL 2016 Je cherche une formule pour une semaine à 4.5 jours au lieu de 5 jours
Réponses
3
Affichages
304
Cancan666
C
B
  • Question Question
XL 2019 Planning avec choix jours ouvrés et jours fériés
Réponses
12
Affichages
503
balardbalard
B
3xceln4ute
  • Résolu(e)
Microsoft 365 Calcul dates d'échéances rappel et probation avec condition
Réponses
5
Affichages
249
JHA
J
P
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
187
TooFatBoy
TooFatBoy
A
  • Question Question
Power Pivot Numéro de semaine ouvrable dans le calendrier dans le modèle de données
Réponses
1
Affichages
147
fanfan38
fanfan38
B
  • Question Question
XL 2021 [Résolu] Date de départ et calcul des jours ouvrés
Réponses
4
Affichages
161
Bibinaire
B
Moi69
  • Résolu(e)
Microsoft 365 Extraire les jours fériés selon le mois
2
Réponses
15
Affichages
279
Moi69
Moi69
L
  • Question Question
Microsoft 365 excel formule sur les jours ouvrés
Réponses
2
Affichages
255
Lordpeter
L
G
  • Question Question
XL 2019 Serie jour ouvré et jours fériés
Réponses
14
Affichages
735
Goo69
G
S
  • Question Question
XL 2021 Calcul nombre jours congés
Réponses
6
Affichages
351
dysorthographie
dysorthographie
H
  • Question Question
XL 2010 calcul du nombre de jours en fonction des dates
Réponses
8
Affichages
196
job75
job75
L
  • Résolu(e)
Microsoft 365 Calcul dans un TCD ou PowerPivot
Réponses
4
Affichages
501
Laurent78
L
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
238
Bibinaire
B
O
  • Question Question
XL 2016 Identification et mise en forme des jours fériés dans un calendrier
Réponses
7
Affichages
425
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2013 Renvoie le jour en dehors des week ends et jours fériés
Réponses
5
Affichages
369
abouam
A
D
  • Question Question
XL 2021 Tableau de chronologie
Réponses
4
Affichages
134
Did25
D
treza88
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
151
Dranreb
Dranreb
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
329
cathodique
cathodique
pascal21
  • Question Question
XL 2019 nombres de jours entre deux articles identiques commandés
Réponses
3
Affichages
141
Hecatonchire
H
Retour