Userform Auto Alim Combox 2 et 3 + textbox
Bonjour,
j'ai une feuille nommé article où sont repertorié differente information, a savoir :
reference - Famille - sous famille - designation - Prix
J'ai créé un userform pour remplir un fichier facture,
celui ci doit reprendre les information suivante :
Combobox 1 ==> famille
Combobox 2 ==> sous famille
Combobox 3 ==> designation
Textbox 1 ==> reference
Textbox 2 ==> prix
comme il y aurai beaucoup d'articles je veux remplir cet userform par la 1ere combobox qui auto alimentera la 2eme ( par rapport aux articles ) qui alimentera la 3eme , qui alimentera la textbox 1 et 2
ci joint le fichier d'echantillon :
http://cjoint.com/?0LpkuCLqWJ5
Merci à vous
alimentation textbox en cascade
Merci pour le lien,
j'ai pu récup une partie du code et l'adapter afin d'effectuer 3 comboBox en cascade :
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| ption Explicit
Dim Ws As Worksheet
Dim NbLignes As Integer
'Les données sont dans les colonnes A à D, d'un onglet nommé "Base".
'La procédure effectue un remplissage conditionnel des Combobox en fonction de
'ce qui est sélectionnée dans le contrôle précédent:
'La sélection du ComboBox1 (données colonne A) définit le contenu du ComboBox2 (données colonne B) ,
'La sélection du ComboBox2 définit le contenu du ComboBox3 (données colonne C) …etc...
'
Private Sub UserForm_Initialize()
'Définit la feuille contenant les données
Set Ws = Worksheets("article")
'Définit le nombre de lignes dans la colonne B
NbLignes = Ws.Range("B65536").End(xlUp).Row
'Remplissage du ComboBox1
Alim_Combo 1
End Sub
Private Sub ComboBox1_Change()
'Remplissage Combo2
Alim_Combo 2, ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
'Remplissage Combo3
Alim_Combo 3, ComboBox2.Value
End Sub
'Procédure pour alimenter les ComboBox
Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
Dim j As Integer
Dim Obj As Control
'Définit le ComboBox à remplir
Set Obj = Me.Controls("ComboBox" & CbxIndex)
'Supprime les anciennes données
Obj.Clear
'alimente le Combobox initial (Combobox1)
If CbxIndex = 1 Then
'Boucle sur les lignes de la colonne B (à partir de la 2eme ligne)
For j = 2 To NbLignes
Obj = Ws.Range("B" & j)
'Remplit le ComboBox sans doublons
If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("B" & j)
Next j
Else
'Alimentation conditionnelle des autres Combobox en fonction de
'ce qui est sélectionnée dans le contrôle précédent:
'(La sélection du ComboBox1 définit le contenu du ComboBox2,
'La sélection du ComboBox2 définit le contenu du ComboBox3 …etc...)
For j = 2 To NbLignes
If Ws.Range("B" & j).Offset(0, CbxIndex - 2) = Cible Then
Obj = Ws.Range("B" & j).Offset(0, CbxIndex - 1)
If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("B" & j).Offset(0, CbxIndex - 1)
End If
Next j
End If
'Enlève la sélection dans le ComboBox
Obj.ListIndex = -1
End Sub |
Le probleme c'est que je voudrais a la fin du choix dans la comboBox 3 cela me marque l'information de la colonne A dans la textbox 1 et l'information de la colonne H dans une textbox 2
Je voudrais aussi pouvoir éffectuer cette commande dans plusieurs ligne de combox voir fichier :
http://cjoint.com/?0LppcRUNuqq
