Recherche de valeur dans une plage à partir d'un combobox

[Dam178]

Bonsoir le forum,

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:

Private Sub ComboBox1_Change()

rep = ComboBox1.Value
Set R = Sheets(2).Range("a3:a20").Find(rep)

TextBox1.Value = Cells(R, 2)


End Sub

Mais cela ne fonctionne pas, une idée ?


Merci

 

[Papou-net]

Re : Recherche de valeur dans une plage à partir d'un combobox

Bonsoir Dam178,

Peut-être en deux lignes comme dans l'exemple suivant :

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

Bonne soirée.

Cordialement.