Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment copier 1 list dans presse- papiers?

2 réponses
Avatar
le_troll
Comment copier 1 list dans presse- papiers?



Bonjour


J'ai une liste (list1), que je voudrais copier dans le presse-papier,
comment faire pour coller tout le contenu de la liste en texte d'une seul
coup ?
--
Merci, @+, bye, Joe
torll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------

2 réponses

Avatar
ng
Salut,

Dim i As Integer, strListe As String
For i = 0 To List1.ListCount - 1
strListe = strListe & List1.List(i) & vbCrLf
Next
If strListe Like "*" & vbCrLf Then strListe = Left$(strListe,
Len(strListe) - 2)

Call Clipboard.Clear
Call Clipboard.SetText(strListe)
strListe = ""

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



le_troll a écrit :

Comment copier 1 list dans presse- papiers?



Bonjour


J'ai une liste (list1), que je voudrais copier dans le
presse-papier, comment faire pour coller tout le contenu de la liste
en texte d'une seul coup ?


Avatar
le_troll
Salut, merci, mais ça je sais faire, je cherchais davantage un truc pour
copier tout d'un coup, mais je ne sais pas si c'est faisable, du genre:
déclaration de la liste en tant que variable objet, puis collage de cette
variable dans le presse-papiers???
--
Merci, @+, bye, Joe
torll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------


"ng" a écrit dans le message de news:

Salut,

Dim i As Integer, strListe As String
For i = 0 To List1.ListCount - 1
strListe = strListe & List1.List(i) & vbCrLf
Next
If strListe Like "*" & vbCrLf Then strListe = Left$(strListe,
Len(strListe) - 2)

Call Clipboard.Clear
Call Clipboard.SetText(strListe)
strListe = ""

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



le_troll a écrit :

> Comment copier 1 list dans presse- papiers?
>
>
>
> Bonjour
>
>
> J'ai une liste (list1), que je voudrais copier dans le
> presse-papier, comment faire pour coller tout le contenu de la liste
> en texte d'une seul coup ?