Discussion :

[adriennoob]

Bonjour ,

J'aimerais faire deux listes déroulantes qui s'alimente entre elle selon le choix que je fais dans l'une.

En gros :
ma première liste ma deuxième liste
A 1
A 2
B 3
C 4
C 5

Si je sélectionne dans ma première liste : A
Alors ma deuxième liste affiche seulement : 1, 2.

J'ai fais un bout de code mais ça marche pas. Quelqu'un pourrait il venir à mon secours, sinon je deviens chauve.

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
Private sub UserForm_Initialize()
Dim J As Integer
'récupère les données de la colonne A...
For J=2 to Range ("A65536").End(xlUp).Row
'...et filtre les doublons
If ComboBox1.ListIndex=-1 Then ComboBox2.AddItem Range("A"&j)
Next j
 
'récupère les données de la colonne B...
For J=2 to Range ("A65536").End(xlUp).Row
'...et filtre les doublons
If ComboBox2.ListIndex=-1 Then ComboBox2.AddItem Range("B"&j)
Next j
 
LaDerniere=Application.Workbooks("test.xls").Worksheets ("Feuil1").Cells (4000, 2).End(x1Up).Row
 
k=1
 
For i = To LaDerniere
If Application.Workbooks("test.xls").Worksheets ("Feuil1").Cells (i, 2).Value = 
 
ComboBox1.Value And Application.Workbooks("test.xls").Worksheets ("Feuil1").Cells (i, 3).Value = ComboBox2.Value Then
Application.Workbooks("test.xls").Worksheets ("Feuil1").Range ("A"&i&":E"&i&"").Copy
Application.Workbooks("test.xls").Worksheets ("Feuil1"). Range ("F"&k&"").Select
ActiveSheet.Paste
 
k=k+1
 
End If
Next i
End Sub

[jfontaine]

Bonjour,

Si tu ne nous dis pas ce qui ne marche pas, les cheveux ne sont pas prêt de repousser

[adriennoob]

Code :

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

1
2
3
4
5
6
7
8
9
10
For J=2 to Range ("A65536").End(xlUp).Row
'...et filtre les doublons
If ComboBox1.ListIndex=-1 Then ComboBox2.AddItem Range("A"&j)
Next j
 
'récupère les données de la colonne B...
For J=2 to Range ("A65536").End(xlUp).Row
'...et filtre les doublons
If ComboBox2.ListIndex=-1 Then ComboBox2.AddItem Range("B"&j)
Next j

Ben en gros dans cette partie, les deux listes déroulantes sont alimentés indépendement l'une de l'autre.

Moi j'aimerais faire un lien entres elles pour que lorsque je sélectionne une valeur dans une liste l'autre se réactualise par rapport au choix fais.

Tu comprends mieux Jfontaine. Merci de m'aider

[jfontaine]

2 morceaux de code

Charge la combobox1 sans doublons

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
Private Sub UserForm_Initialize()
 
Dim i As Long
Dim j As Long
Dim str() As String
Dim bolTrouve As Boolean
 
ReDim str(1)
ComboBox1.Clear
 
'Charge combobox1 sans doublons
For i = 1 To 10
 
    bolTrouve = False
 
    For j = 0 To UBound(str)
 
        If str(j) = Range("A" & i).Value Then
            bolTrouve = True
        End If
 
    Next j
 
    If bolTrouve = False Then
        ReDim Preserve str(UBound(str) + 1)
        str(UBound(str)) = Range("A" & i).Value
        ComboBox1.AddItem Range("A" & i).Value
    End If
 
Next i
 
End Sub

Charge la combobox2 en utilisant la premiere

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
Private Sub ComboBox1_Change()
Dim i As Long
Dim j As Long
Dim str() As String
Dim bolTrouve As Boolean
 
ReDim str(1)
ComboBox2.Clear
 
For i = 1 To 10
 
    If Range("A" & i).Value = ComboBox1.Value Then
 
        bolTrouve = False
 
        For j = 0 To UBound(str)
 
            If str(j) = Range("B" & i).Value Then
                bolTrouve = True
            End If
 
        Next j
 
        If bolTrouve = False Then
            ReDim Preserve str(UBound(str) + 1)
            str(UBound(str)) = Range("B" & i).Value
            ComboBox2.AddItem Range("B" & i).Value
        End If
 
    End If
 
Next i
End Sub

Ce code mériterait peut être d'être amélioré dans la partie gestion des doublons, mais c'est ce qui me vient a cette heure

[adriennoob]

Ha oui d'accord !!! là je te dis merci tu me sauve , c'est sur que tu maitrise VBA. Je comprends pas tout dans ton code mais c'est pas grave je me renseignerais.

Par contre une question , si je veux rajouter une autre liste déroulante tu crois que ça peux marcher ???

Et je t'avoue que si tu as une idée pour optimiser mon code se serais le bien venu .

Je te remerci 1000 fois pour ton aide.

Je comprends pas, ma combobox2 ne fonctionne pas.

Je sélectionne une valeur dans ma combobox1, et il y a rien qui saffiche dans ma combobox2 ???

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
Private Sub ComboBox1_Change()
 
Dim i As Long
Dim j As Long
Dim str() As String
Dim bolTrouve As Boolean
 
ReDim str(1)
ComboBox2.Clear
 
For i = 2 To 6556
 
    If Range("A" & i).Value = ComboBox1.Value Then
 
        bolTrouve = False
 
        For j = 0 To UBound(str)
 
            If str(j) = Range("B" & i).Value Then
                bolTrouve = True
            End If
 
        Next j
 
        If bolTrouve = False Then
            ReDim Preserve str(UBound(str) + 1)
            str(UBound(str)) = Range("B" & i).Value
            ComboBox2.AddItem Range("B" & i).Value
        End If
 
    End If
 
Next i
 
End Sub

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
Private Sub UserForm_Initialize()
 
Dim i As Long
Dim j As Long
Dim str() As String
Dim bolTrouve As Boolean
 
ReDim str(1)
ComboBox1.Clear
 
'Charge combobox1 sans doublons
For i = 2 To 6556
 
    bolTrouve = False
 
    For j = 0 To UBound(str)
 
        If str(j) = Range("A" & i).Value Then
            bolTrouve = True
        End If
 
    Next j
 
    If bolTrouve = False Then
        ReDim Preserve str(UBound(str) + 1)
        str(UBound(str)) = Range("A" & i).Value
        ComboBox1.AddItem Range("A" & i).Value
    End If
 
Next i
 
End Sub

Tu peux remarquer que j'ai modifié juste i = 2 to 6556.

[adriennoob]

Bon pour ceux qui ont le même problème dirigé vous plutôt sur ce code que j'ai trouvé sur le FAQ.

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
73
74
75
76
77
78
Option 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("Base")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A65536").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
 
 
Private Sub ComboBox3_Change()
    'Remplissage Combo4
    Alim_Combo 4, ComboBox3.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 A (à partir de la 2eme ligne)
        For j = 2 To NbLignes
            Obj = Ws.Range("A" & j)
            'Remplit le ComboBox sans doublons
            If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & 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("A" & j).Offset(0, CbxIndex - 2) = Cible Then
                Obj = Ws.Range("A" & j).Offset(0, CbxIndex - 1)
                If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j).Offset(0, CbxIndex - 1)
            End If
        Next j
   End If
 
   'Enlève la sélection dans le ComboBox
   Obj.ListIndex = -1
End Sub