Comment afficher des date du --- au

Bonjour le forum,

Donc voilà, je voudrais afficher des dates du-----au en fonction du numéro de semaine choisi dans un combobox.

Détail :

J'ai un USF, sur cette USF ce trouve un combox contenant les numéro de semaine, se trouve aussi 2 zone de texte que je peux, s'il le faut remplacer par des labels.

partons sur des labels

Il y a donc un label du------------ et un label au----------

je voudrais donc que ces label affiche les dates en fonction de la semaine choisi...

Si quelqu'un à une idée...

Merci à tous

Christian

J'oubliais, voici le code du combox :

Private Sub UserForm_Initialize()
Dim semaine As String
semaine = DatePart("ww", Date, vbMonday, vbFirstFourDays)
 Dim i
    For i = 0 To 51
        ComboBox1.AddItem (i + 1) 'rempli le combo
    Next
ComboBox1.ListIndex = semaine - 1 'sélection de la semaine
'Enlever le cadre de l'UF
   OteTitleBarre Me.Caption, False 'True pour le remettre
End Sub

Personne ??

Je vous enverrais bien le fichier en question mais il est trop gros même compressé...

Bonne journée

Christian

Bonsoir,

Je suppose que tes semaines vont du lundi ( date du ) au dimanche (date au) et que la semaine 1 correspond à la première semaine complète de la nouvelle année. Dans ces conditions voila 2 petites fonctions qui te donneront ces dates

Function dateDu(semaine As Integer, année As Integer) As Date
    dateDu = "01/01/" & année
    While Format(dateDu, "dddd") <> "lundi"
        dateDu = dateDu + 1
    Wend
    dateDu = dateDu + 7 * (semaine - 1)
End Function

Function dateAu(semaine As Integer, année As Integer) As Date
    dateAu = dateDu(semaine, année) + 6
End Function

Voilà bien sur peut être ma vision de la semaine n'est pas la bonne.. précises si nécessaire