Discussion :

[YVES33333]

Bonjour messieurs ,

je viens de créer une formule pour compter le nombre de lundi du mois suivant par rapport au mois actuel; Dans ce cas , nous sommes en aout , donc il devrait me calculer le nombre de lundi du mois de septembre (5 lundis).

Ma formule est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LUNDI: Somme(VraiFaux(JourSem(AjDate("m";1;Date()))=2;1;0))

mais le résultat est 0 !!! je ne comprends pas . Grand merci pour votre aide mais pas de VBA que je ne connais pas

[loufab]

Bonjour,

C'est peut-être le moment d'apprendre pour pousser les murs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Function NbreLundis(mois As Integer, annee As Integer) As Integer
    Dim i As Integer, compteur As Integer
    For i = 1 To Day(DateSerial(annee, mois + 1, 0))
        If Weekday(DateSerial(annee, mois, i), vbMonday) = 1 Then
            compteur = compteur + 1
        End If
    Next i
    NbreLundis= compteur
End Function

Cordialement,

[tototiti2008]

Bonjour,

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbLundisMoisSuivant: 4+VraiFaux(JourSem(SérieDate(Année(Date());Mois(Date())+1;1)-1;2)+Jour(SérieDate(Année(Date());Mois(Date())+2;1)-1)-27>8;1;0)

[loufab]

C'est la jungle et ça marche.

[tototiti2008]

Bonsoir,

Merci
en fait, comme le nombre de jours d'un mois peut être de 28 à 31 jours, il suffit d'analyser par quel jour un mois commence pour déterminer le nombre de lundis
si 28 j, toujours 4 lundis
si 29 j, et le 1er jour est un lundi, 5 lundis sinon 4
si 30 j et le 1er j est un lundi ou dimanche, 5 lundis sinon 4
si 31 j et le 1er j est un lundi, dimanche ou samedis, 5 lundis sinon 4
la formule est simplifiable (des nombres des 2 côtés d'une inégalité c'est pas très joli) mais ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbLundisMoisSuivant: VraiFaux(JourSem(SérieDate(Année(Date());Mois(Date())+1;1)-1;2)+Jour(SérieDate(Année(Date());Mois(Date())+2;1)-1)>35;5;4)