jours ouvrables

[news]

Bonjour à tous du forum,

comment on calcule d'un mois que le nombre des jours de dimanche,
est-ce avec fonction RecherceV ou avec fonction sommeprod?, mais qu'avec ces fonctions, je me retrouve pas tant,

ci-joint calendrier 01/2008-03/2008, (c'est en hindi, y ajouté font hindi)
calculant le nombre total des jours de dimanche d'un mois dans ligne 37,

merci d'avance d'astuces,
et bon noel encore,

 

[Tibo]

Re : jours ouvrables

Bonjour,

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

en E37 :

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

Je te laisse tester

@+

 

[Staple1600]

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)

 

[news]

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,

 

[news]

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,

 

[Staple1600]

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

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

 

[Tibo]

Re : jours ouvrables

Bonjour news, salut Staple,

à essayer également :

=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.

@+

 

[JCGL]

Re : jours ouvrables

Bonjour à tous,

Un essai aussi

en G40

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

A+

 

[Monique]

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)

 

[news]

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,

 

[JCGL]

Re : jours ouvrables

Re,

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

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

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

A+

 

[news]

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,