Lien entre 2 combobox et résultat dans une textbox

Version imprimable

28/02/2013, 15h46
logan77650

1 pièce(s) jointe(s)

Lien entre 2 combobox et résultat dans une textbox

Bonjour à tous,

Je suis un novice en code VBA et pour améliorer un classeur excel je voudrais "simplifier" la saisie de certaine infos, prédéfinies dans une une autre feuille de ce même classeur.

J'ai créer un userbox avec 2 combobox et une listbox.
Dans le premier combobox je voudrai mettre les infos de la 1ère colonne et en fonction de cette infos, mettre dans la 2ème combobox des infos qui lui corresponde que j'ai répartit dans d'autre colonnes et enfin dans la listbox la synthèse des 2 combo avec un espace entre les deux mots.

Je vous joint l'ébauche de mon projet.
Merci d'avance.
28/02/2013, 16h50
Fvandermeulen

Salut,

Vu l'extension du fichier joint, je crains qu'il n'y a pas l'ébauche du code VBA dont tu parles.

De plus, beaucoup, ne télécharge pas les fichiers, copie donc ton code dans le post, tu auras plus de chance d'avoir une réponse

A+

j'ai converti le fichier mais celui d'origine est en .xlsm.
voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CmdOK_Click()
ActiveCell = Me.TextLibellés.Value
 
End Sub
 
Private Sub CmdQuitter_Click()
Unload Libellés
 
 
End Sub
 
Private Sub Type_Change()
 
End Sub
 
Private Sub ListBox1_Click()
 
End Sub
 
Private Sub Désignation_Change()
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub TextLibellés_Change()
 
End Sub
 
Private Sub UserForm_Click()
 
 
End Sub

combo1 type, combo 2 désignation

28/02/2013, 17h57
supierre

Bonjour,

J'ai vu ton fichier, mais je n'ai pas compris tes explications

Citation:

Dans le premier combobox je voudrai mettre les infos de la 1ère colonne

sa sa m'a l'air ok mais de quelle feuille? "Suivi compte" ou "Liste Imputation"?

Citation:

et en fonction de cette infos, mettre dans la 2ème combobox des infos qui lui corresponde que j'ai répartit dans d'autre colonnes

là je n'ai strictement rien compris

Citation:

et enfin dans la listbox la synthèse des 2 combo avec un espace entre les deux mots.

Donc en gros sa, sa me parait facile, juste une concaténation mais comment se rempli cette listbox? quand on a choisit les deux combobox, on appuie sur un bouton "OK"? ou alors pas besoin de choisir et on fait une jointure cartésienne? (bon je pousse un peu loin, j'avoue)

Merci de détailler éxéctement ce que tu souhaites, je te dirais ~~comment t'en passer~~ comment t'y prendre ;)
28/02/2013, 18h13
logan77650

pour la première combo c'est la première colonne de liste imputation et en fonction des colonnes correspondantes qui sont créer.
pour la listbox automatiquement c'est possible sinon je rajoute un ok.
merci de t’intéressé à mon problème.

Voilà ce que je te pond si tu as tes contrôles sur "Liste Imputation"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub ComboBox1_Change() ComboBox2.Clear ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 2, False)) ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 3, False)) ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 4, False)) ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 5, False)) ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:F50"), 6, False)) End Sub Private Sub ComboBox2_Change() If ComboBox2.Value <> "" Then ListBox1.AddItem (ComboBox1.Value & " " & ComboBox2.Value) End Sub
(Bien évidemment, dans mon cas tu as ComboBox1, ComboBox2 et ListBox1)
à toi de l'adapter à ta solution

dit moi si sa te convient

PS: j'ai lié la première combobox à ta première colonne avec la propriété "ListFillRange" (j'ai mis A2:A10)

01/03/2013, 15h47
logan77650

Merci mais ça ne fonctionne pas j'ai remplacer les mot qui correspondent à mon projet mais rien du tout.
A quel endroit je doit préciser le nom de la feuil liste imputation?

oulà, je te fait sa:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, sheets("Liste Imputation").Range("A1:F50"), 2, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, sheets("Liste Imputation").Range("A1:F50"), 3, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, sheets("Liste Imputation").Range("A1:F50"), 4, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, sheets("Liste Imputation").Range("A1:F50"), 5, False))
ComboBox2.AddItem (WorksheetFunction.VLookup(ComboBox1.Value, sheets("Liste Imputation").Range("A1:F50"), 6, False))
End Sub
 
Private Sub ComboBox2_Change()
If ComboBox2.Value <> "" Then ListBox1.AddItem (ComboBox1.Value & " " & ComboBox2.Value)
End Sub

01/03/2013, 16h22
logan77650

toujours rien je comprend pas
sur ma feuil liste imputation je doit faire quelque chose en particulier ou pas
01/03/2013, 17h05
supierre

1 pièce(s) jointe(s)

voici un document où sa marche, dit moi ce qui cloche chez toi, précise bien sinon je suis incapable de t'aider.
01/03/2013, 18h57
logan77650

OK mon problème est que j'avais écris le code dans l'USF est non dans la feuille.
Je vois que tu as fait correspondre les listes par ligne, moi j'ai fait des colonnes pour tous séparer.
Peut-on utiliser mon USF avec ce code si je refait ma liste par ligne est non par colonne.
En validant par OK sur USF je voudrait mettre le résultat dans la cellule que j'aurais sélectionné.
07/03/2013, 16h11
supierre

que signifie "USF"?
sinon il doit être possible de remplacer les lignes par des colonnes et vice-versa, mais si tu peux faire un autre document exemple sa me parlerais plus :)
07/03/2013, 19h00
logan77650

Bonjour supierre,
USF c'est pour userform si tu as une solution avec mon document de départ sa me va aussi. merci d'avance.
08/03/2013, 11h30
supierre

Bonjour,

Je ne manipule presque pas les userforms, mais à priori le code que je t'ais transmis doit être facilement adaptable, à l'exeption prêt qu'il faut gérer le code d'initialisation des deux combobox (et ne pas oublier d'ajouter la feuille de la même façon que ce que je t'ai monté dans un post précédent).