jours ouvrables

Tibo

XLDnaute Barbatruc

• 26 Décembre 2007

• #2

Re : jours ouvrables

Bonjour,

Sur la base de ton fichier, un simple NB.Si pourrait suffire :

en E37 :

Code:

=NB.SI(E4:E34;"di.")

Je te laisse tester

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2007

• #3

Re : jours ouvrables

Bonjour


Une piste sur ce fil
https://www.excel-downloads.com/threads/nbre-de-semaine-dans-un-mois.10835/

Notamment cette formule de Monique
(adaptée ici aux dimanches)
=SOMMEPROD((JOURSEM(LIGNE(INDIRECT(FIN.MOIS(A1;-1)+1&":"&FIN.MOIS(A1;0))))=1)*1)

(Nécessite de cocher l'utilitaire d'analyse, Outils/Macros complémentaires)

 

Dernière édition: 26 Décembre 2007

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 26 Décembre 2007

• #4

Re : jours ouvrables

Bonsoir à tous du forum,

Re: Staple1600 et Tibo
les deux codes données, fonctionnent bien,

si simple le code à utiliser, =NB.SI(E4:E34;"di."),
rien de sommeprod à utiliser,

en donnant le fil du sujet répondu de Monique, je me rappelle d'un code de Monique déjà vu sur ce forum, laquelle a bien expliqué,

merci pour réponses,

 

Dernière édition: 26 Décembre 2007

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 27 Décembre 2007

• #5

Re : jours ouvrables

re:

parfois je dois calculer les jours ouvrables si cela concerne qu'une période déterminée d'un mois.

Comment on doit y mettre pour calculer du mois de 01/2008
que les jours lundi-samedi (sauf dimanche) des dates/ de la période 05/01/2008-16/01/2008 ?,

le résultat est 10 jours,
mais quelle formule est à appliquer,

 

Pièces jointes

• jours_ouvrables.xls

  31.5 KB · Affichages: 83

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Décembre 2007

• #6

Re : jours ouvrables

Bonjour


Essaye la fonction NB.JOURS.OUVRES
(nécessite l'utilitaire d'analyse)
Pour la période du 5 au 16 janvier 2008, cette formule renvoie 8
Ex: en A1: 05/01/08, en A2: 16/01/08, en B2: =NB.JOURS.OUVRES(A1;A2) --> 8

Pour les jours ouvrables voir ici:
https://www.excel-downloads.com/threads/dates-ouvrables-et-autres-jours.79018/
ou encore ici
Nombre de jours ouvrables entiers entre deux dates

En utilisant VBA
Source:
Groupes de discussion : microsoft.public.fr.excel
De : "Jean LANNELUCQ"
Date : 1999/08/14
Objet : Re: Formule pour jours ouvrables d'un mois

Code:

Function JoursOuvrés(DateInitiale, DateFinale) As Single
Dim jour(7) : Dim nbjours As Integer :Dim i As Variant
jour(1) = 0 'Dimanche
jour(2) = 1 'Lundi
jour(3) = 1 'Mardi
jour(4) = 1 'Mercredi
jour(5) = 1 'Jeudi
jour(6) = 1 'Vendredi
jour(7) = 1 'Samedi
    For i = DateInitiale To DateFinale
        If jour(WeekDay(i)) = 1 Then
            nbjours = nbjours + 1
        End If
    Next
    JoursOuvrés = nbjours
End Function

en reprenant l'exemple plus haut (05/01/08 en A1, 16/01/08 en B1)
=Joursouvrés(A1;B1) ---> 10

 

Dernière édition: 27 Décembre 2007

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 27 Décembre 2007

• #7

Re : jours ouvrables

Bonjour news, salut Staple,

à essayer également :

Code:

=SOMMEPROD((JOURSEM(LIGNE(INDIRECT(E40&":"&F40));2)<7)*1)

Avantage : ne nécessite pas d'activer la macro complémentaire Utilitaire d'analyse et donc meilleure portabilité sur un autre micro.

@+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Décembre 2007

• #8

Re : jours ouvrables

Bonjour à tous,

Un essai aussi

en G40

Code:

=ARRONDI.SUP(NB.JOURS.OUVRES(E40,F40,0)+(F40-E40)/7,0)

A+

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 27 Décembre 2007

• #9

Re : jours ouvrables

Bonjour,

Des formules pour compter le nb de jours ouvrés,
sans forcément utiliser le calendrier
(j'ai un peu remanié le calendrier, d'ailleurs)

 

Pièces jointes

• JoursOuvrablesNews.zip

  8.3 KB · Affichages: 59

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 27 Décembre 2007

• #10

Re : jours ouvrables

Bonjour à tous du forum,

merci pour les nombreuses réponses,
d'abord je me suis mis à étudier un peu les astuces, formules de date, jour, mois du lien suivant Lien supprimé
ce n'est pas si évident, tant de dates, formules,

merice Staple1600 pour astuces et formules, il s'agissait des jours ouvrés de lundi à samedi,
la macro Function JoursOuvrés(DateInitiale, DateFinale) As Single
je ne préfère pas utiliser parce que avec autre macro d'ajoute de fonction
d'un sujet différent, j'avais des bug dans la plage de données,

avec le JCGL il y a un bug avec la formule:
=ARRONDI.SUP(NB.JOURS.OUVRES(E40,F40,0)+(F40-E40)/7,0)

j'utilise le code proposé de Tibo
=SOMMEPROD((JOURSEM(LIGNE(INDIRECT(E40&":"&F40));2)<7)*1)
qui fonctionne bien,

merci pour vos réponses et bonne journée encore,

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Décembre 2007

• #11

Re : jours ouvrables

Re,

=ARRONDI.SUP(NB.JOURS.OUVRES(E40,F40,0)+(F40-E40)/7,0)

Cliquez pour agrandir...

remplace les , par des ; (J'utilise une version FR/EN)

=ARRONDI.SUP(NB.JOURS.OUVRES(E40;F40;0)+(F40-E40)/7;0)

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 28 Décembre 2007

• #12

Re : jours ouvrables

Re:

merci JCGL d'avoir pris le temps d'y répondre au sujet posté et des modifications données,
le code fonctionne très bien,

bonne journée encore,

 

Vote positif 0 Vote négatif