> 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
131 €Montre connectée Huawei Watch GT 2 Pro à 131 € (via ODR)
Valable jusqu'au 24 Octobre

Amazon fait une promotion sur la montre connectée Huawei Watch GT 2 qui passe à 161 € livrée gratuitement au lieu de 200 €. Or HUAWEI rembourse actuellement 30 € pour l'achat de cette montre qui vous reviendra à 131 € après remboursement.

Avec la Huawei Watch GT 2 Pro, retrouvez une montre au cadran en saphir et au boitier en titane pour en mettre plein la vue à votre entourage. Légère et ultra-résistante, profitez de son sublime écran AMOLED de 1.39" à résolution 454 x 454 pixels pour afficher toutes les informations dont vous avez besoin. Moderne, mais intemporelle, cette montre connectée résiste à l'eau ainsi qu'à la poussière et vous sera d'une aide précieuse tout au long de votre journée.

Idéale pour suivre votre vie au quotidien, la Huawei Watch GT 2 Pro compte vos pas, évalue votre inactivité et surveille vos efforts intenses. En parallèle, soyez également notifié de chaque message, appel, alarme ou rappel.


> Voir l'offre
383,67 €Smartphone Samsung Galaxy S20 FE 128 Go à 383,67 € livré
Valable jusqu'au 24 Octobre

Amazon Allemagne fait une superbe promotion sur le smartphone Samsung Galaxy S20 FE qui passe à 378,54 € grâce à un coupon de réduction de 150 € à appliquer sur la page du produit. Comptez 5,13 € pour la livraison en France soit un total de 383,67 € livré. Avec le Samsung Galaxy S20 FE, plongez au coeur de vos divertissements grâce à son sublime écran Infinity AMOLED de 6.5" 120 Hz à résolution FullHD+ de 2400 x 1080 pixels. De plus, avec son processeur SnapDragon 865 à 8 coeurs épaulé par 6 Go de RAM et d'un espace de stockage de 128 Go, installez toutes vos applications favorites facilement et sans contrainte. Quant à l'appareil photo principal à triple capteur 12+12+8, ultra performant et la possibilité d'enregistrer des vidéos en 8K, vous ne verrez plus jamais votre smartphone de la même manière. Le téléphone tourne sous Android 10 en français dès le premier démarrage. 

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE et bénéficiez d'une garantie européenne de 2 ans.


> Voir l'offre
- 10 €10 € de réduction à partir de 20 € d'achats chez Rakuten pour les nouveaux clients
Valable jusqu'au 01 Décembre

Rakuten propose pour les nouveaux clients une offre de parrainage vous permettant de bénéficier de 10 € de réduction immédiate à partir de 20 € d'achats. Rakuten est une plateforme qui vous permettra d'acheter aussi bien des produits informatiques et Hi-Tech que des livres, des disques ou des jeux vidéos d'occasion.


> 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