Bonsoir,
Dans un formulaire j'ai une liste déroulante, après sa mise à jour je souhaite afficher dans une zone de liste tous les adhérents correspondant à la sélection.
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
25
26
27
28
29
30
31
32
33
34
Private Sub UserForm_Initialize()
    'raz de la zone de liste adhérents
    Me.zl_adh.Clear
 
    Worksheets("PAR_ADH").Activate
    DernLg = ActiveSheet.UsedRange.Rows.Count
    'le premier loisir se trouve dans la cellule A4
    For i = 4 To DernLg
    'ajouter le loisir si la cellule n'est pas vide
        If Cells(i, 1) <> "" Then Me.ld_choix_loisirs.AddItem Cells(i, 1)
    Next i
End Sub
Private Sub ld_choix_loisirs_Change()
    Worksheets("ADHERENTS").Activate
    DernLg = ActiveSheet.UsedRange.Rows.Count
    LoisirAdh = Me.ld_choix_loisirs.Text
    i = 4
    For i = 4 To DernLg
        If Cells(i, 8) = LoisirAdh And Cells(i, 8) <> "" Then
            IDAdh = Cells(i, 1).Value
            PrenomAdh = Cells(i, 2).Value
            NomAdh = Cells(i, 3).Value
            DateNaissAdh = Cells(i, 4).Value
            DateAdh = Cells(i, 5).Value
 
            Me.zl_adh.AddItem IDAdh
            Me.zl_adh.AddItem PrenomAdh
            Me.zl_adh.AddItem NomAdh
            i = i + 1
 
        End If
    Next
 
End Sub
Visiblement je n'ai aucune erreur mais ma seconde liste est désespérément vide.
Merci pour votre aide
Cordialement
Chris