Le 13 mars 08 à 18:03 (soir), Robin de Kat a écrit:
Je voudrais copier-coller le contenu d'une listbox dans une autre
application (editeur de texte, tableur, etc.) mais cela ne semble
pas fonctionner.
Y-a-t-il un réglage particulier?
Il faut le faire par du code (le menu “Copier” ne va pas fonctionner
tel-quel avec une liste).
Par exemple:
dim i As integer
dim j As integer
dim s as string
dim t As string
dim u As string
for i=0 to ListBox1.ListCount-1 'Pour chaque ligne
t=""
for j=0 to ListBox1.ColumnCount-1 'Pour chaque colonne
t=t+ListBox1.Cell(i,j)+chr(9) '1 2 3 4
next
t=left(t,len(t)-1) 'On enlève la dernière tabulation
u=u+t+EndOfLine 'On ajoute dans "u" la "j"ème ligne+une fin de ligne
next
u=left(u,len(u)-1) 'On enlève la dernière ligne vide
dim c As new Clipboard
c.text=u
c.close
|