Discussion :

[Rayan1]

Bonsoir les amis,

Je suis face à un dileme. et je voulais votre aide.
Voilà moi problème. J'ai une plage de Date exemple : 02/02/2018 au 01/02/2019.
Voici la plage :
02/02/2018
03/02/2018
04/02/2018 etc....

donc j'aimerai identifier le nombre de lundi, le nombre de mardi, le nombre de mercredi, etc dans la plage.

Je demande de ll'aide

[marot_r]

Bonjour.

Il y a peut-etre un moyen de le calculer en function du nombre de jour et du 1er jour de la periode mais il ne m'apparait pas.

Ci-dessous une function VBA qui fait cela de maniere plus brutrale :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function CompteJourSemaine(prmDateDebut As Date, prmDateFin As Date) As Dictionary
    'Cette function a besoin d'une reference a Microsoft Scripting Runtime
    Dim result As New Dictionary
 
    Dim numJour As Long
    Dim d As Date: For d = prmDateDebut To prmDateFin
        numJour = Weekday(d, vbMonday) 'Suppose que la semaine commence le lundi donc 1 = Lundi.
 
        If result.Exists(numJour) Then
                result.Item(numJour) = result.Item(numJour) + 1
            Else
                Call result.Add(numJour, 1)
        End If
 
    Next d
 
    Set CompteJourSemaine = result: Set result = Nothing
End Function

ici un exemple d'utilisation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Exemple_CompteJourSemaine()
    Dim listeNombreJourSemaine As Dictionary
    Set listeNombreJourSemaine = CompteJourSemaine(DateSerial(2018, 1, 1), DateSerial(2018, 1, 14))
 
    Dim i As Long
 
    For i = 0 To listeNombreJourSemaine.Count - 1
        Debug.Print listeNombreJourSemaine.Keys(i), listeNombreJourSemaine.Items(i)
    Next i
 
    Set listeNombreJourSemaine = Nothing
End Sub

Note que si la periode est de moins d'une semaine, les jours manquants ne seront pas dans le resultat, pas meme a 0.

A+

[Rayan1]

Ha merci, Grandement merci pour la réponse.
Depuis hier j'étais la dessus. Mais il un grand problème à mon niveau. Je suis un débutant et depuis hier je tente de le mettre en place mais sans succés donc si je pouvais l'avoir en version Access ça me permettra de connaitre sa mise en exécution.
Merci pour la compréhension

[marot_r]

Bonjour.

Non, desole, je ne peux pas te fournir de base exemple.

Ce qu'il faut faire c'est ajouter un module et copier les 2 codes dedans.
Le 1er est la function elle-meme et le 2nd seulement un exemple qui permet de verifier si cela fonctionne.

Pour t'aider plus il faudrait que tu expliques dans quel contexte tu veux te servir des resultats.
La, tel que c'est ecrit, cel suppose que c'est dans un programme VBA.

A+

[Rayan1]

Ha ok pas de problème.
Oui c'est un programme VBA. Voici mon but. Sélection des jours comme : Lundi, Jeudi et Dimanche. déterminer une période du 22/06/2018 au 21/06/2019, il y aura combien de Lundi, Jeudi et Dimanche.
Voici ce que j'aimerais faire.

[marot_r]

Bonjour.

Exemple_CompteJourSemaine fait cela et t'affiche le nombre de chaque jour de la semaine dans la periode voulue en commencant par 1 le lundi.

Si tu veux seulement voir le nombre de Jeudi tu peux faire quelque chose comme :

Code :

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

debug.print listeNombreJourSemaine(4)

A+

[hyperion13]

Il y a une autre solution qui calcule via une req un nombre de jours (lundi à dimanche) entre 2 dates (Datedeb et Datefin)

Code :

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

1
2
3
4
5
Option Compare Database
Public Function NbLundis(DateDeb As Date, DateFin As Date)
NbLundis = DateDiff("ww", DateDeb, DateFin, vbMonday) - Int(vbMonday = Weekday(DateDeb))
'vbMonday = lundi, vbTuesday = mardi, vbWednesday = mercredi, vbThursday = jeudi, vbFriday = vendredi, vbSaturday = samedi, vbSunday = dimanche
End Function