Discussion :

[dan5367]

Bonsoir mercatog

Merci pour votre code.
J'aimerais m'en servir, mais la 2ème combobox est vide

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
Private Sub UserForm_Initialize()
Dim MonDico As Object
Dim C As Range
 
Set MonDico = CreateObject("Scripting.Dictionary")
With Feuil2
    For Each C In .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
        MonDico(C.Value) = C.Value
    Next C
End With
Me.Cbx_GrAlim.List = MonDico.items 'ma 1ère combobox
 
Set MonDico = Nothing
End Sub
 
Private Sub Cbx_GrAlim_Change()
Dim MonDico As Object
Dim C As Range
 
If Me.Cbx_GrAlim.ListIndex > -1 Then
    Set MonDico = CreateObject("Scripting.Dictionary")
    With Feuil2
        For Each C In .Range("D2:D" & .Cells(.Rows.Count, 2).End(xlUp).Row)
            If C.Offset(, -1) = Me.Cbx_GrAlim.Value Then MonDico(C.Value) = C.Value
        Next C
    End With
    With Me.Cbx_Alim 'Ma 2ème combobox
        .List = MonDico.items
        .ListIndex = -1
    End With
 
    Set MonDico = Nothing
End If
End Sub

Mes colonnes sont la colonne 2 et 4.

Le pas à pas indique : Me.Cbx_Alim = ""

Merci à vous

[Philippe Tulliez]

Bonjour,
Quel est le but final ?
Si c'est juste pour une consultation d'une liste en fonction du choix d'une autre et si vous avez au minimum la version 2010, il est possible de réaliser cela à l'aide de Power Query en organisant vos données à l'aide de tables structurées
Il suffira alors de créer la requête, une liste déroulante (Validation de données) définie par une plage nommée et moins de cinq lignes de code VBA dans une procédure événementielle.

[dan5367]

Merci pour votre réponse.
Je ne connais pas power query.
Je vais étudier ça.
Dan