Funkcja wyszukiwania w VBA / Excel

Próbuję utworzyć makro, które szuka wartości w bazie danych i kopiuje dane w dwóch kolumnach po odwołaniu.

przykład:

Baza danych:

PS85

ps86

ps77

ps52

...

• W postaci użytkownika menu rozwijane o wartości „ps86”, inne o numerze „5”
• Przycisk przesyłania
• gdy kliknę przycisk, który dostanę w bazie danych:

PS85

ps86 5

ps77

ps52

...

Rozwiązanie

Wypróbuj ten kod:

ComboBox1 = lista rozwijana z wartością (ps85, ps86 ...)

ComboBox2 = Lista ilości

CommandButton1 = Przycisk przesyłania

Dostosuj następujący kod:

 Private Sub CommandButton1_Click () Dim RngTrouve jako zakres, jeśli ComboBox1 "" I ComboBox2 "" Następnie z arkuszami (NomDeTaFeuil) .Columns (1) Ustaw RngTrouve = .Cells.Find (ComboBox1.Value, lookat: = xlWhole) Jeśli RngTrouve jest niczym wtedy MsgBox "valeur inexistante" Else RngTrouve.Offset (0, 2) .Value = ComboBox2.Value Koniec jeśli koniec z końcem Jeśli Set RngTrouve = Nothing End Sub 

Dzięki pijaku za tę wskazówkę.