Discussion :

[logan77650]

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.

[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+

[logan77650]

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

Code :

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

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

[supierre]

Bonjour,

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

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

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

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

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

[supierre]

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

Code :

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

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)