calcul d'un week end complet

[rym]

Bonjour,

Je souhaiterai calculer entre deux dates le nombre de week end complet:

Exemple: du 18/11/2009 au 28/11/2009 je souhaite qu'il m'indique 1 week end complet.

J'essai déséspérement depuis deux jours et je n'y arrive pas.
Merci d'avance pour votre aide.
Cordialement

 

[Jocelyn]

Re : calcul d'un week end complet

Bonjour le Forum,
Bonjour rym,

en considérant la date de départ en A1 en la date de fin en B1 en C1 tu peux tester

=ENT(SOMMEPROD((JOURSEM(LIGNE(INDIRECT(A1&":"&B1));2)>5)*1)/2)

Jocelyn

 

[hoerwind]

Re : calcul d'un week end complet

Bonjour et bienvenu sur le forum, salut Jocelyn,

Si j'interprète, la question n'est pas entre deux dates, mais bien de date à date, c'est à dire bornes comprises.

Pour Jocelyn :
Pour une plage du dim 15/11/09 au sam 28/11/09, ta formule renvoie 2, alors qu'il n'y a qu'un seul weekend complet (21 et 22/11/09).

Je regarde aussi de mon côté.

 

[jp14]

Re : calcul d'un week end complet

Bonjour
Salut Jocelyn

Ci dessous une fonction personnalisée à tester

Function nombre_de_week_end(date_debut As Range, date_fin As Range)
Dim date1 As Date, date2 As Date
Dim i As Integer
Application.Volatile
date1 = Format(date_debut, "dd/mm/yyyy")
date2 = Format(date_fin, "dd/mm/yyyy")
Do
    If Weekday(date1) = 1 Then i = i + 1
    date1 = DateAdd("d", 1, date1)
    If date1 > date2 Then Exit Do
Loop
nombre_de_week_end = i
End Function

JP

 

[Jocelyn]

Re : calcul d'un week end complet

re,
Bonjour hoerwind,

Bien vu hoerwind, je n'avais pas songé a ce cas de figure alors par formule on peut corriger comme ca :

=SOMMEPROD((JOURSEM(LIGNE(INDIRECT(A1&":"&B1));2)=6)*(JOURSEM(LIGNE(INDIRECT(A1+1&":"&B1+1));2)=7)*1)-SI(JOURSEM(B1+1;2)=7;1;0)

Jocelyn

Edit : Bonjour jp14

 

[K.BARON]

Re : calcul d'un week end complet

Salut,

si tu ne maitrise pas VBA et que tu que souhaites te débrouiller avec de simples formules voici ce que tu peux faire:

- calculer le nombre de jours: fonction nb(
- calculer le nombre de jour ouvrés: fonction NB.JOURS.OUVRES(
- tu soustrais ensuite le nombre de jours par le nombre de jours ouvrés et tu divise le résultat par deux et tu trouveras le nombre de week end...

Seul problème: tes bornes ne doivent pas commencer ou finir par un jour de week end sinon cela ne marche pas....

kevin

 

[JHA]

Re : calcul d'un week end complet

Bonjour à tous,

un début de réponse avec NB.JOURS.OUVRES()

JHA

 

[hoerwind]

Re : calcul d'un week end complet

Re, salut JHA,

Je me fait l'avocat du diable (formule de JHA)

Du ven 27/11/09 au lun 30/11/09 la formule renvoie 0, alors qu'il y a 1 weekend complet.
Du mer 18/11/09 au lun 30/11/09 la formule renvoie 1, alors qu'il y a 2 weekend complets.

 

[hoerwind]

Re : calcul d'un week end complet

Bonjour à vous tous,

Critiquer les autres est permis, à condition d'apporter soi-même une solution.

Proposition avec explications sous la pièce jointe.
Un beau petit mélange de plusieurs fonctions, en espérant que cela réponde à la question.

 

[rym]

Re : calcul d'un week end complet

Bonjour à tous,

Je tiens à vous remercier tous pour vos réponses très explicatives.
Merci beaucoup de votre aide, vos formules sont excellentes.
J'aime beaucoup excel, mais la vraiment je ne m'en sortais plus.
Merci encore pour tout, vous êtes excellent!
Rym🙂

 

[rym]

Re : calcul d'un week end complet

Message pour JP14:

Pouvez vous m'expliquer votre formule car je n'ai pas compris.
Merci d'avance

 

[rym]

Re : calcul d'un week end complet

Message pour Jocelyn,

Merci pour votre réponse,
Mais en appliquant votre formule il y a peut être un petit problème:
en effet quand on mets du 15/11/09 au 29/11/2009 il me mets 2 week end alors qu'il n'y a que 1 seul week end complet. Sinon pour tout le reste elle fonctionne correctement
Peut être que j'ai mal interprétée votre formule.
Pouvez vous essayer de votre côté pour me dire, c'est peut être moi qui est fait une erreure.
Merci encore

 

[rym]

Re : calcul d'un week end complet

excusez moi, mais je ne comprends pas votre formule.
Pouvez vous me l'expliquer

Bonjour
Salut Jocelyn

Ci dessous une fonction personnalisée à tester

Function nombre_de_week_end(date_debut As Range, date_fin As Range)
Dim date1 As Date, date2 As Date
Dim i As Integer
Application.Volatile
date1 = Format(date_debut, "dd/mm/yyyy")
date2 = Format(date_fin, "dd/mm/yyyy")
Do
    If Weekday(date1) = 1 Then i = i + 1
    date1 = DateAdd("d", 1, date1)
    If date1 > date2 Then Exit Do
Loop
nombre_de_week_end = i
End Function

JP

 

[Jocelyn]

Re : calcul d'un week end complet

re,

Hum hum en regardant sur un calendrier je trouve bien 2 Week-end complets

le samedi 21 et le dimanche 22
le samedi 28 et le dimanche 29

Ou alors je n'ai pas compris la demande

Jocelyn

 

[rym]

Re : calcul d'un week end complet

Je suis désolée.

Mais mon problème est que je veux le nombre de week end complet.
Je vais essayer d'expliquer un peu mieux mon cas:
Exemple:

Un salarié part en déplacement du 15/11/2009 au 29/11/2009 alors il est parti un dimanche et il est revenu un dimanche donc il n 'y a qu'un seul week end complet en déplacement.
J'éspère avoir été un peu plus claire.
Merci encore pour votre aide