Jour et numéro de la sem. d'un mois sur une période comprise entre 2 dates

Le 24/02/2019 à 18:17

Bonjour,

J'ai converti ma proposition en VBA :

Le fichier :

Le code :

Sub MemeJourMemeSemaine()
Dim cel As Range
Dim deb As Date
Dim fin As Date
Dim dat As Date
Dim sem As Integer
Dim noj As Integer

  Set cel = Worksheets("VBA").Range("C6")
  cel.Offset(0, -1).Resize(27, 2).ClearContents  'à adapter si besoin
  deb = Worksheets("VBA").Range("B3").Value
  fin = Worksheets("VBA").Range("C3").Value
  Do
    sem = Int((Day(deb) - 1) / 7)
    noj = (CDbl(deb) - 2) Mod 7
    dat = DateSerial(Year(deb), Month(deb) + 1, 7)
    dat = dat - ((dat - 2 - noj) Mod 7) + 7 * sem
    If dat > fin Then Exit Do
    cel.Value = dat
    cel.Offset(0, -1) = deb  'si besoin
    Set cel = cel.Offset(1)
    deb = dat
  Loop

End Sub

Mais fonctionne mal dans le cas de la 5ème semaine

Le 24/02/2019 à 22:35

Hé, super, je vais regarder ça dans la semaine.

Merci pour le temps consacré.

Au plaisir.

Le 22/04/2022 à 14:47

Bonjour Patrice33740,

Je trouve ton fichier très intéressant car il me permettra de résoudre mon soucis également surtout la méthode sans VBA. Je cherche en effet à lister tous les vendredis compris entre deux dates. Sur ton fichier il rerenseigne les premiers vendredis de chaque mois. Par exemple si je sélectionne l'intervalle 01/04/2022 au 29/04/2022 (les deux extrémités de l'intervalle n'étant uniquement que des jours ouvrés), j'aurais :

01/04/2022 au 08/04/2022

08/04/20222 au 15/04/2022

15/04/2022 au 22/04/2022

22/04/2022 au 29/04/2022

De la même manière en sélectionnant toutes l'année, j'aurais les différents semaines

07/01/2022 au 14/01/2022

14/01/2022 au 21/01/2022 et ainsi de suite jusqu'au 31 décembre 2022.

Merci d'avance pour ton aide.

Le 23/04/2022 à 09:25

Bonjour,
Une petite contribution.
Cdlt.

2vendredis.xlsx (18.19 Ko)

Le 25/04/2022 à 11:38