Re le fil salut Denis
remplace la macro de ton fichier par celle-ci
Private Sub Calendrier_click()
Dim numsem As String
numsem = Format(Calendrier.Value, "ww")
txtDate.Value = Format(Calendrier.Value, "DDDD DD MMMM YYYY")
TextNsm.Value = numsem
Worksheets("Param").Activate
Range("U2").Select
TextNsm.Value = numsem
If Len(numsem) < 2 Then numsem = "0" & numsem 'le pb venais d'ici
Label1 = columns("u").Find(numsem).Offset(0, 1)
Label35 = Columns("u").Find(numsem).Offset(0, 2)
End Sub
L'explication: format("01/01/04","ww") donne 1 donc si le prog trouve 14 dans une cellule pour lui c'est bon
les solutions:1 effectuer la recherche juste sur la colonne 'u' et ensuite forcer la taille de numsem à 2 donc au lieu de 1 on à 01.
Voilà
Bonne soirée
@+Vincent