Função de pesquisa no VBA / Excel

Eu tento fazer uma macro que procura um valor em um banco de dados e que copia dados em duas colunas após a referência.

exemplo:

base de dados:

PS85

ps86

ps77

ps52

...

• Em um formulário de usuário, um menu suspenso com valor "ps86", outro com o número "5"
• Um botão de envio
• quando clico no botão que gostaria de obter no banco de dados:

PS85

ps86 5

ps77

ps52

...

Solução

Tente este código:

ComboBox1 = lista de itens com valor (ps85, ps86 ...)

ComboBox2 = lista de quantidades

CommandButton1 = O botão de envio

Adapte o seguinte código:

 Privado Sub CommandButton1_Click () Dim RngTrouve como Range Se ComboBox1 "" E ComboBox2 "" Então Com Folhas (NomDeTaFeuil) .Columns (1) Defina RngTrouve = .Cells.Find (ComboBox1.Value, lookat: = xlWhole) Se RngTrouve Não é Nada Então MsgBox "valeur inexistante" Else RngTrouve.Offset (0, 2) .Valor = ComboBox2.Value End If End With End Se Set RngTrouve = Nothing End Sub 

Graças a pijaku por esta dica.