Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Coller Presse-Papier dans module

cathodique

XLDnaute Barbatruc
Bonjour,

Dans la suite de cette discussion , j'essaie de me faire un outil pour retrouver facilement mes bouts de codes.
Via une textbox, mes fichiers macros sont dans un premier temps filtrer dans une listbox1.
Au clic, sur un fichier ses lignes de code sont récupérées dans une autre listbox2.
J'utilise un code trouvé sur le net (si mes souvenirs sont bons: faq dvp) pour copier la listbox2 dans le presse-papier.
Je n'ai pas trouvé de solution pour copier le presse-papier dans un module actif (standard ou feuille ou classe, ect...).
Toute proposition est la bienvenue.
Avec mes remerciements anticipés.
Bon dimanche.
 
Dernière édition:

cathodique

XLDnaute Barbatruc
Merci beaucoup. Je vais essayer d'adapter selon mon idée initiale. Soit filtrer listbox (nom fichiers) via textbox.

Bonne journée.
 

cathodique

XLDnaute Barbatruc
c'est quoi la regle de filtrage ?
Filtrer listbox par rapport au nom du fichier, au fur et à mesure des lettres tapées la listbox se filtre.
je fais comme ceci
VB:
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
Et Job75 a amélioré le code fichier post9, comme ceci
Code:
Private Sub TextBox1_Change()
    If Tb(0) <> "" Then ListBox1.List = Filter(Tb, TextBox1, True, vbTextCompare)
End Sub
Mais la listbox ne comportait qu'une seule colonne. Merci.
 

patricktoulon

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

Pièces jointes

  • exemple pour cathodique.xlsm
    25.7 KB · Affichages: 20

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…