VBA date dans la semaine en cours

Bonjour à tous,

j'ai une question concernant les dates.

j'ai une macro me permettant d'afficher une liste de tâches .

Cela fonctionne correctement mais j'aimerais désormais l'updater

En effet la ligne If TblBD(i, 4) = Date Then va vérifier si dans ma base si les cellules correspondent à la date du jour

ceci étant, je voudrais désormais faire afficher les dates qui serait comprise dans la semaine en cours mais ne sait pas comment m'y prendre.

exemple nous sommes le 28/05/2020

je voudrais afficher les dates entre le 25 et le 31..soit du lundi au dimanche

comment procéder afin de faire cela de manière optimale en vba?

faut il fonctionner avec le numéro de la semaine en cours? et comparer ensuite toutes les dates??

Merci à vous car je ne sais pas par où commencer en fait...

Public Sub List_ToBeDone()
   ColVisu = Array(1, 2, 3, 5, 6)
    LargeurCol = Array(1, 35, 80, 39, 45)

  nomtableau = "T_Tasks"
  TblBD = Range(nomtableau)
  List_Tasks_tobedone.ColumnCount = Range(nomtableau).Columns.Count
 List_Tasks_tobedone.ColumnWidths = Join(LargeurCol, ";")

    Dim Tbl()
  For i = 1 To UBound(TblBD)
     If TblBD(i, 4) = Date Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
         c = 0
         For Each K In ColVisu
           c = c + 1: Tbl(c, n) = TblBD(i, K)
         Next K
     End If
   Next i
   If n > 0 Then List_Tasks_tobedone.Column = Tbl Else List_Tasks_tobedone.Clear
End Sub

Bonjour,

remplace

     If TblBD(i, 4) = Date Then

par

     If (TblBD(i, 4) >= Date - Weekday(Date, vbMonday) + 1) And (TblBD(i, 4) <= Date - Weekday(Date, vbMonday) + 7) Then

Bonjour,

à tester,

dt = Date   ' ou pour le test DateSerial(2020, 5, 30)
x = Weekday(dt, 1)
dtDimanche = DateSerial(Year(dt), Month(dtDate), Day(dt) - x + 1)
dtVendredi = DateSerial(Year(dtDimanche), Month(dtDimanche), Day(dtDimanche) + 5)
Debug.Print dtDimanche & "  " & dtVendredi

Bonjour

merci à vous pour vos retours

j'ai testé et cela fonctionne parfaitement.