> 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
188,13 €Ecouteurs intra sans-fil Sony WF-1000XM4 à réduction de bruit active à 188,13 € livrés
Valable jusqu'au 26 Janvier

Amazon Espagne fait une belle promotion sur les écouteurs intra-auriculaire sans-fil Sony WF-1000XM4 avec réduction de bruit active qui passent à 183,46 € (avec la TVA ajustée). Comptez 4,67 € pour la livraison en France soit un total de alors 188,13 € livrés qu'on les trouve ailleurs à plus de 279 €.

Les écouteurs sans fil WF-1000XM4 associent le système à réduction de bruit le plus avancé avec une qualité audio exceptionnelle, une grande autonomie et plusieurs fonctions intelligentes pour une expérience audio inégalée. Le nouveau processeur V1, spécialement développé par Sony, vous propose une réduction de bruit inégalée. La personnalisation sur 20 niveaux et le mode Ambient Sound vous permettent de rester à l'écoute des sons essentiels. Plus de réglages intelligents grâce à l'application Sony / Headphones Connect. Avec leur grande autonomie de 24h au total (écouteurs + boîtier de charge compatible charge à induction), ces écouteurs vous accompagnent tout le temps et partout grâce également à leur protection IPX4 contre la pluie et la sueur. 

Enfin, l'intégration des assistants vocaux, le mode Speak to Chat pour mettre en pause automatiquement votre musique lorsque que vous parlez et la technologie Precise Voice Pickup pour des appels mains libres clairs et précis, vous faciliteront le quotidien.


> Voir l'offre
189,99 €Pack de 2 disques durs Seagate NAS Iron Wolf 4 To à 189,99 €
Valable jusqu'au 26 Janvier

Cdiscount propose le pack de 2 disques durs Seagate IronWolf 4 To à 189,99 €. le Ces disques durs 3.5 pouces SATA III sont adaptés aux NAS et ordinateurs qui fonctionnent 24h/24. On les trouve ailleurs autour de 110 € l'unité. Disques CMR.


> Voir l'offre
63,57 €Casque HyperX Cloud II (PC, Xbox, PS4/PS5, Switch) à 63,57 €
Valable jusqu'au 26 Janvier

Boulanger fait une promotion sur l'excellent casque gaming HyperX Cloud II qui passe à 63,57 € en cumulant les codes promo MERCI15 et ACCESS15 alors qu'on le trouve ailleurs à partir de 87,99 €. Le contrôle indépendant de l'audio et du microphone permet de régler non seulement le volume sonore mais aussi le niveau du micro (qui est détachable). Vous pouvez aussi activer le son Surround 7.1 ou le micro. Il peut se connecter en USB sur PC et Mac et via jack 3.5 mm sur PS4/PS5, Xbox, Switch et mobile.


> 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