Bonjour, j'espère être dans la bonne rubrique

voilà j'ai un soucis j'aimerai sur un formulaire qui à 2 listes déroulantes, une pour les mois et une autre pour les semaines, que quand je rentre un numero de semaine le mois change et vis versa

voilà l'évènementielle sur les mois
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub mois_Change()
    Dim bds As Database, rst As Recordset
    Dim rech   As Integer
 
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset("calendrier")
20:
 
            With rst
                rst.MoveFirst
                While Me.mois > !mois
                    rech = !semaine
                     If Me!mois = Val(!mois) Then GoTo 10
                    .MoveNext
                Wend
           End With
10:
Me!semaine = rech
  Me!semaine.SetFocus
 bds.Close
 
End Sub
et évènementielle pour les semaines
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub semaine_Change()
     Dim bds As Database, rst As Recordset
    Dim rech   As Date
 
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset("calendrier")
        Debug.Print "debut"
 
            With rst
                rst.MoveFirst
                While Not rst.EOF
 
                     rech = !Date
                 If Me.semaine = !semaine Then
                      GoTo 10
                 End If
                     .MoveNext
                Wend
           End With
10:
Me!date1 = rech
Me!date2 = rech + 4
 bds.Close
End Sub
c'est une base que j'ai récupéré et j'avoue que je n'y comprends pas grand chose en VB