> 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
19,90 €Bracelet connecté Xiaomi Mi Band 5 avec tracker cardiaque IP67, écran OLED et Bluetooth 5 à 19,90 €
Valable jusqu'au 07 Décembre

Amazon fait une promotion sur le bracelet connecté de fitness Xiaomi Mi Band 5 avec tracker cardiaque à 19,90 €. Ce bracelet est étanche IP67 et possède le bluetooth 5.0. Avec lui, vous pouvez suivre votre rythme cardiaque, mais également vos pas et vos calories dépensées que vous pourrez afficher sur son écran OLED couleur, de même que l'heure courante. Il intègre également un réveil vibreur silencieux (pratique pour se réveiller la nuit sans réveiller sa moitié) et peut suivre vos phases de sommeil. Vous pourrez configurer le bracelet et suivre votre activité depuis n'importe quel appareil mobile avec Bluetooth 5 sous Android ou iOS. Vous pourrez contrôler votre musique du téléphone depuis le bracelet et afficher vos notifications.

Sa batterie autorise une autonomie de 20 jours entre 2 recharges.


> Voir l'offre
28,99 €Clavier sans fil Microsoft All in One avec pad intégré à 28,99 €
Valable jusqu'au 07 Décembre

Amazon fait une promotion sur le clavier Microsoft All in One qui passe à 28,99 € au lieu de 39 €. Ce clavier sans fil (jusqu'à 9 mètres) est idéal pour piloter un ordinateur à distance puisqu'il intègre un touchpad pour contrôler également la souris. Léger, solide et résistant aux éclaboussures, il comporte de nombreuses touches multimédia personnalisables. Il est garanti 3 ans. La livraison est gratuite.


> Voir l'offre
22,00 €Souris Logitech G402 Hyperion à 22 €
Valable jusqu'au 08 Décembre

Amazon propose actuellement la souris Logitech G402 Hyperion à 22 € alors qu'on la trouve ailleurs à partir de 40 €. Une belle réduction pour une très bonne souris filaire dédiée aux joueurs (capteur 4000 dpi, résolution ajustable, 8 boutons programmables).


> 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