Lundi fx N°SEM et Annee

marcello06

XLDnaute Occasionnel
Salut le forum !

j'aimerais de votre part une aide:

je souhaite en fonction du Numero de semaine et de l'année choisie renvoyer la valeur du Lundi de la semaine en format date

exemple:


pour la semaine 37 de l'année 2005 la valeur a renvoyer est
Lundi 12 septembre

en code vba car je souhaite l'inclure dans une procedure.

Merci les gars et @ +
 

Hervé

XLDnaute Barbatruc
Supporter XLD
bonjour macello, le forum

tu peux essayer ce type de code :

Public Sub lundi()
Dim Jour As Date
Dim semaine As Byte

semaine = InputBox('semaine ?')
Jour = DateSerial(Year(Date), 1, 1)

MsgBox CDate(IIf(Jour > 5, Jour - Weekday(Jour) + 2, Jour - Weekday(Jour) - 5) + 7 * semaine)
End Sub

salut
 

Statistiques des forums

Discussions
300 716
Messages
1 986 638
Membres
209 554
dernier inscrit
Khaay