Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprivate Sub Form_Load List1.clear list1.additem "A ou B dans List2" List1.additem "C ou D dans List2" List1.additem "E ou F dans List2" end sub private Sub List1_Click() list2.clear select case List1.Listindex case 0 list2.Additem "A" list2.additem "B" case 1 list2.additem "C" list2.additem "D" case 2 list2.additem "E" list2.additem "F" end select end sub