Discussion :

[jean-marc50]

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

[domibigoudi]

Bonjour,

Tu pourrais aussi intégrer un calendrier [Calendrier] (dans la boite à outils VBA), placer un label [LblSemaine].

Lors de la sélection d'une date calendrier, le label indique le numéro de la semaine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub Calendrier_Click
        LblSemaine.Caption = "Semaine de début : " & Format(Calendrier.Value, "ww", vbMonday, vbFirstFourDays)
End Sub