1 2 3 4 5 6 7 8 9 10
| Private Function ReturnInfo()
Dim DateDebutSemaine As Date
Dim i As Integer
'On calcule le numéro du premier jour de la semaine selon la date selectionnée grâce aux listes
DateDebutSemaine = DateAdd("d", -IIf(Weekday(DateSerial(Me.Liste_Annee, Me.Liste_Mois, Me.Liste_Jour)) - 1 = 0, 7, Weekday(DateSerial(Me.Liste_Annee, Me.Liste_Mois, Me.Liste_Jour)) - 1) + 1, DateSerial(Me.Liste_Annee, Me.Liste_Mois, Me.Liste_Jour))
'On récupère le numéro de la case
i = ObjectNum(elem_selected)
'On calcule la date de la case selectionnée et on la renvoie
ReturnInfo = DateAdd("d", i - 1, DateDebutSemaine)
End Function |