Je bloque sur un code qui m'a l'air pourtant plutot simple. L'idée c'est de remplir des textbox en fonction de la valeur choisi dans un combobox, les valeurs sont à extraire dans un tableau excel.
Exemple: je choisi un client dans le combobox, les champs (textbox) adresse et N° de tel se remplient automatiquement.
mon code:
Code:
Private Sub ComboBox1_Change()
rep = ComboBox1.Value
Set R = Sheets(2).Range("a3:a20").Find(rep)
TextBox1.Value = Cells(R, 2)
End Sub
Re : Recherche de valeur dans une plage à partir d'un combobox
Bonsoir Dam178,
Peut-être en deux lignes comme dans l'exemple suivant :
Code:
Private Sub ComboBox1_Change()
Set R = Sheets(2).Range("a3:a20").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not R Is Nothing Then TextBox1.Value = Cells(R.Row, 2)
End Sub