bonsoir Nico74,
Pour cet exemple tu as besoin d'un UserForm, d'un ComboBox et d'un Label
Dans ta déclaration de ton UserForm écrit ceci:
Dim NomLBindex As Integer
Private Sub ComboBox1_Change()
NomLBindex = ComboBox1.ListIndex + 1
Range("C" & NomLBindex).Select
Label1.Caption = Range("C" & NomLBindex).Text
End Sub
Private Sub UserForm_Initialize()
Dim L As Integer
Dim Plage As String
L2 = Range("A65536").End(xlUp).Row
Plage2 = Range("A1:A" & L).Address
ComboBox1.RowSource = "Feuil1!" & Plage
End Sub
Et voilà
A bientôt
Ludwig