XL 2016 Listbox selon valeur cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
115
Réponses
3
Affichages
133
Réponses
4
Affichages
110
Retour