Discussion :

[imo69]

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

[mercatog]

Voir la FAQ par exemple

[imo69]

Merci pour le lien,

j'ai pu récup une partie du code et l'adapter afin d'effectuer 3 comboBox en cascade :

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

[mercatog]

Si tu avais compris la logique, tu t'en sortirais

Ajoute ce 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
Private Sub ComboBox3_Change()
Dim i As Long
 
Me.TextBox1 = ""
Me.TextBox2 = ""
If Me.ComboBox1.ListIndex > -1 And Me.ComboBox2.ListIndex > -1 And Me.ComboBox2.ListIndex > -1 Then
    With Ws
        For i = 2 To NbLignes
            If .Range("B" & i) = Me.ComboBox1 And .Range("C" & i) = Me.ComboBox2 And .Range("D" & i) = Me.ComboBox3 Then
                Me.TextBox1 = .Range("A" & i)
                Me.TextBox2 = .Range("H" & i)
                Exit For
            End If
        Next i
    End With
End If
End Sub

[imo69]

bonsoir,

j'essaye de comprendre justement et c'est en apprenant que l'on comprends,

j'ai compris la principe du change combox qui va indiquer en effet les valeur a rentrer dans les 2 textbox

J'ai essayé de reproduire la cascade sur une 2eme ligne
combox 4 - 5 - 6
mais pas moyens que cela fonctionne j'ai tout le temps une erreur

J'ai essayé par 2 type differents
rajouter alim_combo 4 en init formulaire + les 2 combox change 4 - 5

J'ai essayé de faire un copier collé en nomant alimm_combo et en modifiant mais pareil erreur aussi

merci de m'eclaircir sur ce point afin de reproduire la cascade sur plusieur ligne

[AlainTech]

Bonjour,

mais pas moyens que cela fonctionne j'ai tout le temps une erreur

La plupart du temps, le texte de l'erreur permet de comprendre ce qu'il faut modifier.
Ne t'étonne pas de ne pas recevoir de réponse si tu ne fais même pas l'effort de nous donner ces éléments.