VlookUp entre ComboBox

bonjour,

Je vais essayer d'être aussi clair que possible :

J'aimerais savoir si il est possible de lire la valeur inscrite dans une ComboBox et en fonction de celle-ci (si elle est présente dans une plage de donnée), qu'une autre ComboBox prennent la valeur associé dans la plage de donnée. Voila un exemple de ce que j'ai fait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim data, j As String     data = ThisWorkbook.Sheets("RC Data")   If MaterialNameA.Value = "" Then Exit Sub Else   For j = 2 To data.Range("C65536") If Cells(j, 2).Value = MaterialNameA.Value Then ManufacturerName.Value = Cells(j, 3).Value End If Next j

---

merci de votre aide

Bonjour,


Ci dessous le code a mettre dans l'evenement change du combobox1

Code:

---

1 2 3

ComboBox2.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet("RC Data").Range("A:B"), 2, 0)

---

Ce code n'a pas été testé mais ca devrait ne pas etre loin

Merci, le code est bon. :ccool:

Cependant, je ne peux pas ajouter des données qui n'appartient pas à la plage de donnée...
La finalité, serais :
- Si la donnée appartient à la plage, alors il complète automatiquement (ce qu'il fait avec la fonction VlookUp)
-Si la donnée n'est pas présente, pouvoir l'ajouter... Mais là ça bog !

J'ai lu que la fonction Find est plus pratique que VlookUp. Dois-je l'utiliser ? Si oui, pouvez vous me donner la structure, je n'ai pas vraiment compris sur l'aide...

Dans ce cas je ferais plutot comme ca

Code:

---

1 2 3 4 5 6 7 8 9

Dim strRecherche As String   On Error GoTo suite ComboBox2.Value = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheet("RC Data").Range("A:B"), 2, 0) Exit Sub   suite: ComboBox2.Value = InputBox("ecrire une donnée")

---

Ca marche... mais pas très bien. L'InputBox apparait dés que la fonction VlookUp ne renvoie aucun résultat.... Mais si le nom du produit est beaucoup plus long, je suis coincé.. je développe :

Je veux rentrer le nom de mon produit : Toile de verre avec isolation thermique et phonique.

Dans ma plage de donnée, j'ai Toile de verre. Donc dans ma ComboBox, quand je tape Toile de verre, il me propose le produit qu'il connait. Si j'ajoute un espace, il m'envoie automatiquement l'InputBox. Je ne peux pas entrer le nom du produit en entier...
Comment palier à cela ?

Je ne comprend pas bien ce que tu veux dire par

Citation:

---

Je ne peux pas entrer le nom du produit en entier...

---

J'entends par là que lorsque je tape Toile de verre, il me propose les données qu'il connait et qui sont la plage de donnée. Mais si j'ajoute un espace, alors l'InputBox apparait. Je suis alors coincé. Je suis obligé de rentrer l'information pour la ComboBox2.
C'est plus clair ?

Si je comprend bien tu veux faire une recherche sur les premiers caractères?

Concretement, ce que j'aimerais, c'est que si le matériaux est connue, les champs soient remplies automatiquement. Mais si ce n'est pas le cas, alors on puisse les remplir manuellement...
Je ne sais pas ce que tu entends par recherche sur les premier caractères... Mais si ça permet de faire ce que j'aimerais, alors je suis preneur ^^

On peut faire beaucoup de chose en VBA, si ton problème est juste la saisie d'un espace a la fin, tu peux le neutraliser avec l'instruction trim

Code:

---

ComboBox2.Value = Application.WorksheetFunction.VLookup(trim(ComboBox1.Value), Sheet("RC Data").Range("A:B"), 2, 0)

---

Merci, j'ai trouvé une astuce, si la saisie n'appartient pas à la plage de donnée, alors ce qui est déjà saisie est récupéré dans un InputBox

Merci de votre aide !:ccool: