XL 2016 Listbox selon valeur cellule

[TOINE38]

Bonjour,

Je souhaiterais vous solliciter pour un petit coup de pouce sur ma macro.
Je souhaiterais afficher une listbox des fichiers correspondant à la valeur d'une cellule.
Par exemple dans mon fichier joint, j'ai une feuille base et une Main
Dans la feuille Main je choisi une valeur dans ma cellule B6 et lorsque je clique sur la bouton commande je souhaiterais afficher la liste de tous les documents associés à la valeur de cette cellule
J'arrive à extraire la listbox avec tous les éléments mais je n'arrive pas à la filtrer avec ceux de ma cellule uniquement.

En pièce jointe un petit bout de mon fichier.

Merci pour toute aide à ce projet.

cordialement

toine38

 

[Jacky67]

Bonjour,

Je souhaiterais vous solliciter pour un petit coup de pouce sur ma macro.
Je souhaiterais afficher une listbox des fichiers correspondant à la valeur d'une cellule.
Par exemple dans mon fichier joint, j'ai une feuille base et une Main
Dans la feuille Main je choisi une valeur dans ma cellule B6 et lorsque je clique sur la bouton commande je souhaiterais afficher la liste de tous les documents associés à la valeur de cette cellule
J'arrive à extraire la listbox avec tous les éléments mais je n'arrive pas à la filtrer avec ceux de ma cellule uniquement.

En pièce jointe un petit bout de mon fichier.

Merci pour toute aide à ce projet.

cordialement

toine38

Bonjour,
Une autre façon de faire avec filtre et sans dictionary

Private Sub UserForm_Initialize()
    Dim Plage, C As Range
    Set Plage = Feuil2.UsedRange
    Plage.AutoFilter Field:=1, Criteria1:=Feuil1.[b6]
    For Each C In Plage.Offset(1, 1).Resize(Plage.Rows.Count - 1, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible)
        Me.ListBox1.AddItem C
    Next
    Plage.AutoFilter
End Sub

 

[TOINE38]

Bonsoir Jacky67

Merci beaucoup pour le coup de pouce.
super, je vais pouvoir finaliser mon programme

Cdt

Toine38