XL 2010 Coller Presse-Papier dans module

patricktoulon à dit:

re
voici un exemple complet
tu a un userform avec deux listbox et deux boutons
la listbox1 liste tout les fichier dans le dossierMaitre et tout ses sous dossiers
la listbox2 liste le code lu dans le fichiers cliqué dans la listbox1
tu a une constante en haut de module userform
ADAPTE LE CHEMIN DE TON DOSSIER MAITRE pour cette constante

ben y a plus qu'a
Regarde la pièce jointe 1105788

Cliquez pour agrandir...

patricktoulon à dit:

c'est quoi la regle de filtrage ?

Cliquez pour agrandir...

Private Sub TextBox1_Change()
    Dim liste
    ListBox2.Clear
    liste = Filter(Tb, TextBox1.Text, True, vbTextCompare)
    If UBound(liste) <> 0 Then
        ListBox1.List = liste
    Else
        ListBox1.Clear
    End If
End Sub

Private Sub TextBox1_Change()
    If Tb(0) <> "" Then ListBox1.List = Filter(Tb, TextBox1, True, vbTextCompare)
End Sub

patricktoulon à dit:

ok alors voila comme ça à l'arrache vite fait
tu tape une partie de nom ou une extension
et le click direct sur le bouton liste tout les fichiers comme ça tu a les deux modes
Regarde la pièce jointe 1105790

Cliquez pour agrandir...