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.
Visiblement je n'ai aucune erreur mais ma seconde liste est désespérément vide.
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
Merci pour votre aide
Cordialement
Chris
Partager