Listbox filtrer par textbox

Bonsoir,

Quand je cale je me retourne vers la communauté.

J'ai un USF avec une listbox1 que je rempli a partir du contenu d'un dossier et une listbox2 encore vide.Jusque la le code recupéré est bon.

Je veux rajouter un Textbox qui me permet de remplir ma Listbox1 de façon intuitive avec "textbox change".

Ensuite en fonction de mon choix dans ma listbox1 ma listbox2 se rempli avec le nom des fichiers contenus dans le dossier choisi dans la Listbox1

Voici le code qui initialise ma Listebox1:

Private Sub UserForm_Initialize()
   Racine = "C:\Users\OMEGA\Desktop\magasin1\BDclients\"
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set Dossier = fs.getfolder(Racine)
   For Each d In Dossier.SubFolders
     Me.ListBox1.AddItem d.Name
   Next
End Sub

Merci de votre aide

Bonsoir

Un essai

Bonsoir Banzaï,

Banzaï= trop top

C'est parfait dans l'ensemble.

Un detail dans la Listbox2 il n'affiche que les fichiers. On ne peut pas afficher les fichiers et les dossiers?

Autre chose: pour ouvrir le fichier selectionner dans la Listebox2 comment faire?

Cordialement

Bonsoir

Une fois le dossier affiché que compte tu faire ?

Moi je ne vais pas plus loin

latef1991 a écrit :

Autre chose: pour ouvrir le fichier selectionner dans la Listebox2 comment faire?

Pourquoi n'utilises tu pas le sélecteur de fichier intégré : Application.FileDialog(msoFileDialogOpen)

Bonsoir Banzaï,

Un tres grand merci de te pencher sur mon probleme.

Ta 2° version est parfaite.

La finalité c'est de selectionner un fichier ou un dossier dans la Listbox2 et de l'ouvrir.

Merci d'avance pour ton aide dans cette derniere etape.

Cordialement