XL 2016 Listbox selon valeur cellule

TOINE38

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

Pièces jointes

  • test.xlsm
    22 KB · Affichages: 12

Jacky67

XLDnaute Barbatruc
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
VB:
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
 

Pièces jointes

  • testListbox item.xlsm
    25.4 KB · Affichages: 23

Discussions similaires

Réponses
25
Affichages
603
Réponses
21
Affichages
1 K
Réponses
4
Affichages
242
Réponses
6
Affichages
89

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll