XL 2010 Coller Presse-Papier dans module

  • Initiateur de la discussion Initiateur de la discussion cathodique
  • Date de début Date de début

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 !

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:
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
Merci beaucoup. Je vais essayer d'adapter selon mon idée initiale. Soit filtrer listbox (nom fichiers) via textbox.

Bonne journée.
 
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.
 
- 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

Retour