Discussion :

[Victor1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Victor1]

Merci, le code est bon.

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...

[jfontaine]

Dans ce cas je ferais plutot comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[Victor1]

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 ?

[jfontaine]

Je ne comprend pas bien ce que tu veux dire par

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