dates

[andré]

Salut,

Je coïnce !
Je cherche une formule simple qui me permet de calculer le nombre de samedis dans une année.

Ândré.

 

[David]

va voir le travail de Monique C@thy et Celeda si tu n'y trouves pas ton bonheur c'est qu'il n'y a pas de solution (ce qui m'étonnerais)
G.David

 

[Myta]

Salut le Forum

En formule simple je sais pas mais en macro

on peut faire avec en

A1 la date de depart
A2 la date de fin

La macro donne ceci (Pouvant etre modifiable en fonction aussi)


Sub Samedi()

Dim Nbr_Samedi As Byte
Dim Date_debut As Date
Dim Date_fin As Date
Dim Jr_Sem As Byte
Dim Jour As Date

Nbr_Samedi = 0
Date_debut = [a1]
Date_fin = [a2]
For Jour = Date_debut To Date_fin
If Application.WorksheetFunction.Weekday(Jour, 1) = 7 Then Nbr_Samedi = Nbr_Samedi + 1
Next Jour

MsgBox ("Nbre de Samedi = " & Nbr_Samedi)

End Sub

Mytå

 

[Monique]

Bonjour,

Une petite collection, à vérifier, quand même.
Il y a peut-être plus simple.

 

[andré]

Salut David,

Tu comprends bien qu'avant d'avoir posé cette question j'ai été fouiner dans cet excellent dossier, mais sans trouver de réponse à ma question.

Je parviens déjà à calculer le nombre de samedis et de dimanches dans une année :
A1 : premier jour de l'année (01.01.2004) sous le format "aaaa"
A2 : =FIN.MOIS(A1;11)
A3 : =SI(MOD(ANNEE(A1);4)=0;366-NB.JOURS.OUVRES(A1;A2);365-NB.JOURS.OUVRES(A1;A2))

Ce qui renvoie 104 pour 2004 et 105 pour 2005, et ce qui a l'air d'être exact.
Pour 2004, pas de problème, 52 samedis et 52 dimanches
Mais pour 2005, je dois maintenant tester si le 01.01.2005 est un samedi ou un dimanche ... la formule devient très longue.

C'est pourquoi je me suis dis qu'il y avait peut-être une façon plus simple de procéder.
J'ai essayé par un SOMMEPROD, mais sans obtenir de résultat.

Alors, si cela inspire quelqu'un !
Ândré.

 

[andré]

Salut Myta et Monique (dans l'ordre des réponses, sans autre préséance ...),

Merci beaucoup, me voilà dépanné.
Il me semblait bien que du côté de la Bretagne ce genre de question ne devait pas poser de gros problème.

A la prochaine.
Ândré.

 

[andré]

Resalut à tous,

Ah Excel quand tu nous tiens !

Encore la preuve qu'il vaut mieux réfléchir un peu plus longtemps avant de faire appel à l'équipe, ... mais c'est tellement plus facile.

Ândré.