Private Sub ComboBox1_Change() ListBox1.ListIndex = ComboBox1.ListIndex End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub UserForm_Initialize() ComboBox1.List() = Range("A1:A65530").Value End Sub Private Sub ComboBox1_Change() ' Affichage de la réponse de la colonneB dans le List2 If ComboBox1.Value Then ListBox1.AddItem "B", ComboBox1.ListIndex End If End Sub