Date du premier jour de la semaine en VBA

Le 16/07/2013 à 14:55

Bonjour,

Je n'arrive pas à trouver une macro pour que une cellule sur mon Userforme, me donne la date du premier jour de la semaine après avoir renseigner deux ComboBox : celle de l'Année et celle du n° de semaine.

Merci part avance.

Le 16/07/2013 à 20:20

Bonjour,

    Function lundiSemaine(année As Long, semaine As Long) As Date
        lundiSemaine = (semaine - 1) * 7 + DateValue("05/01/" & année) - Weekday(DateValue("04/01/" & année), vbMonday)
    End Function

eric

Le 16/07/2013 à 22:10

Merci Eric pour la rapidité de ta réponse mais j'ai du mal à l'adapter a mon userform car je ne comprend pas tous de ton code

Surtout au niveau de là : lundiSemaine = (semaine - 1) * 7 + DateValue("05/01/" & année) - Weekday(DateValue("04/01/" & année), vbMonday)

ps : J'en suis qu'aux bases du vba

EDIT : C'est bon ! encore merci Eric ! Après avoir repotasser les cours que j'ai trouvé et après deux trois essais j'ai réussi à l'utiliser !

89feuille-pointage-test-1.zip (15.09 Ko)

Le 17/07/2013 à 01:22

Re,

il s'agit d'une fonction à mettre dans un module Standard (Module1 par exemple).

En VBA tu l'appelles ainsi :

datLun = lundiSemaine(2013, 29)

et tu as en retour la date 15/07/2013

Syntaxe sur une feuille :

=lundiSemaine(A2; B2)

N'oublie pas de mettre en résolu le post avec la réponse.

eric