> Tous les forums > Forum Bureautique
 Calcul du nombre de jours fériés avec Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Anonyme
  Posté le 22/03/2021 @ 20:50 
Aller en bas de la page 
Petit astucien

Bonjour

Est ce qu'il existe une formule qui puisse me donner le nombre de jours féries (pas les jours ouvrés) entre 2 dates ? Si oui quelle est t-elle?
Merci de vos lumières

Publicité
poussebois
 Posté le 22/03/2021 à 22:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonsoir ,

La lumière vient du net. Regarde .

J'avoue ne pas avoir eu le courage de vérifier la justesse du raisonnement . A toi de le faire...

@ +

Anonyme
 Posté le 23/03/2021 à 06:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Poussebois,

Déjà vu et étudié, mais cela ne me convient pas car il faut afficher manuellement les jours féries de l'année et puis la formule va chercher ceux qui sont dans l'intervalle sélectionné.
Je voudrais si cela est possible (cela fait quelques temps que je suis dessus sans résultats) que la fonction me trouve automatiquement le nombre de jours féries entre 2 dates introduites manuellement

Debrief
 Posté le 23/03/2021 à 10:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

J'ai ce code dans mes cartons.

A ré-indenter après compression PC Astuces.

'------------------------------------------------
'Retourne les jours fériés de l'année en argument
'------------------------------------------------
Function JoursFériés(An As Integer) As Date()
Dim Nb As Long, Epacte As Long
Dim PLune As Date, LPaques As Date
Dim i As Long, j As Long, k As Long, tmp As Long
Dim TabJoursFériés(1 To 11) As Date

' Calcul du Lundi de Pâques
Nb = (An Mod 19) + 1
' Différence entre calendrier solaire et lunaire
Epacte = (11 * Nb - (3 + Int(2 + Int(An / 100)) * 3 / 7)) Mod 30
PLune = DateSerial(An, 4, 19) - ((Epacte + 6) Mod 30)
If Epacte = 24 Then PLune = PLune - 1
' Valable entre 1900 et 2199 : on verra bien ?
If Epacte = 25 And (An >= 1900 And An < 2200) Then PLune = PLune - 1
' Lundi de Pâques
LPaques = PLune - Weekday(PLune) + vbMonday + 7

' Jour de l'An
TabJoursFériés(1) = DateSerial(An, 1, 1)
' Paques
TabJoursFériés(2) = LPaques
' Ascension
TabJoursFériés(3) = LPaques + 38
' Pentecôte
TabJoursFériés(4) = LPaques + 49
' Fete du travail
TabJoursFériés(5) = DateSerial(An, 5, 1)
' Anniversire 1945
TabJoursFériés(6) = DateSerial(An, 5, 8)
' Fete Nationale
TabJoursFériés(7) = DateSerial(An, 7, 14)
' Assomption
TabJoursFériés(8) = DateSerial(An, 8, 15)
' Toussaint
TabJoursFériés(9) = DateSerial(An, 11, 1)
' Armistice 1918
TabJoursFériés(10) = DateSerial(An, 11, 11)
' Noel
TabJoursFériés(11) = DateSerial(An, 12, 25)

' Tri Tableau TabJoursFériés()
For i = LBound(TabJoursFériés) To UBound(TabJoursFériés)
j = i
For k = j + 1 To UBound(TabJoursFériés)
If TabJoursFériés(k) <= TabJoursFériés(j) Then j = k
Next k
If i <> j Then
tmp = TabJoursFériés(j)
TabJoursFériés(j) = TabJoursFériés(i)
TabJoursFériés(i) = tmp
End If
Next i

JoursFériés = TabJoursFériés
End Function

Debrief
 Posté le 23/03/2021 à 11:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Ou ça avec le calcul qui permet d'exclure éventuellement les jours fériés tombant un samedi et/ou un dimanche -> https://www.cjoint.com/c/KCxkNyKOJES

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
88,08 €Alimentation modulaire Seasonic Focus Plus Gold 650W (garantie 10 ans) à 88,08 € livrée
Valable jusqu'au 29 Novembre

Amazon Espagne fait une promotion sur l'alimentation Seasonic Focus Plus Gold 650W qui passe à 79,33 €. Comptez 8,75 € pour la livraison en France soit un total de 88,08 € livrée alors qu'on la trouve ailleurs à partir de 105 €. Le niveau frise la perfection avec une magnifique certification 80+ OR et un câblage full modulaire, le tout dans un silence de cathédrale. L'alimentation est garantie 10 ans.

 


> Voir l'offre
29,99 €Carte mémoire microSDXC UHS-I SanDisk A1 Ultra 256 Go à 29,99 €
Valable jusqu'au 29 Novembre

Amazon propose actuellement la carte mémoire microSDXC UHS-I SanDisk A1 Ultra 256 Go à 29,99 € livrée. On la trouve ailleurs à partir de 40 €. Cette carte mémoire offre des vitesses jusqu'à 120 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro et Nintendo Switch.


> Voir l'offre
22,99 €Clé HDMI Fire TV Stick 2021 (Prime Video, Netflix, Disney+, Molotov, MyCanal sur votre TV) à 22,99 €
Valable jusqu'au 27 Novembre

Amazon fait une superbe promotion sur sa nouvelle clé HDMI Amazon Fire TV Stick qui passe à 22,99 € au lieu de 39,99 €. Cette clé HDMI à brancher sur votre TV possède un processeur quadricoeur, 1 Go de RAM et 8 Go d'espace de stockage, le WiFi et le bluetooth. Avec elle, vous allez pouvoir voir facilement Prime Video, Netflix, Disney+, YouTube, Molovov, MyCanal, Spotify sur votre TV Full HD. Cette nouvelle version 2021 est compatible Alexa. Une télécommande avec des boutons pour contrôler également la TV est fournie. Elle possède des boutons pour un accès direct à Netflix, Prime Video, Disney Plus et Amazon Music.

Notez qu'il est possible de coupler un casque bluetooth avec le Fire TV Stick afin de regarder tranquillement la TV sans déranger vos proches. 

Pour plus d'informations, n'hésitez pas à consulter notre dossier pratique dédié à la clé Fire TV Stick.


> Voir l'offre

Sujets relatifs
calcul du nombre de jours
Convertir nombre de jours en heures Excel
Calcul du nombre de cellule d'une couleur de fond identique
Créer une formule de calcul avec excel 2007
Excel 2007/ Calcul de salaire avec nbre d'heures
une erreur dans la formule de calcul avec excel
Calcul de pourcentage avec Excel
Feuille de calcul d'heures avec Excel?
calcul de prime sous excel avec un exemple lisible
affiche du nombre de cellule avec....
Plus de sujets relatifs à Calcul du nombre de jours fériés avec Excel
 > Tous les forums > Forum Bureautique