Salut Florent, bonsoir le forum.
Pour un textbox:
Private Sub ComboBox1_Change()
TextBox1 = Range("B1").Cells(ComboBox1.ListIndex + 1, 1)
End Sub
Pour un list box, il faut d'abord que la liste (B1 à B4) ait été chargée à un moment, par exemple ainsi:
Private Sub UserForm_Initialize()
For i = 1 To 4
ListBox1.AddItem Range("B1").Cells(i, 1)
Next i
End Sub
pour pouvoir ensuite afficher l'élément de la liste, et dans ce cas,
Listbox1.listindex=Conmobox1.listindex devrait marcher
Bonsoir.
Laurent.