Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionE.B.
Option Explicit Private Sub B1_Click() L1.Visible = True L2.Visible = Not L1.Visible End Sub Private Sub B2_Click() L1.Visible = False L2.Visible = Not L1.Visible End Sub Private Sub Form_Load() With L1 .AddItem "1" .AddItem "2" .AddItem "3" End With With L2 .AddItem "a" .AddItem "b" .AddItem "c" End With End Sub