Bonjour à tous,

J'ai un calendrier où l'on trouve sur une ligne la date du lundi de chaque semaine de l'année et sur la ligne supérieure, le numéro de semaine correspondant à la date. (voir exemple ci dessous)

N° de semaine 1 2 3 4 ...
Date 04/01/2016 11/01/2016 18/01/2016 25/01/2016 ...

Ce tableau est sur 2 ans, j'ai donc à chaque fois 2 fois le même numéro de semaine.
Ce que je n'arrive pas à faire, c'est rentrer un date et que l'année soit prise en compte. C'est-à-dire que si je rentre la date du 15/01/16, qu'il me sélectionne que la semaine 2 de l'année 2016. Actuellement, il me sélectionne la semaine 2 de 2016 puis 2017.
Je vous mets mon code aussi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
sem = DatePart("ww", TextBox3.Value, vbMonday, vbFirstFourDays)
 
 
 
    For j = 5 To 109
        If sem = DatePart("ww", .Cells(2, j), vbMonday, vbFirstFourDays) Then
            .Cells(1, j).Select
        Else
            n = n + 1
        End If
    Next j
Si quelqu'un a une idée je suis preneur
A bientôt et merci !