Aidez moi SVP !!

Question

Comment fait-on si je veux que lorsque l'on clique sur un
bouton il copy (ou qu'il recopi )tous le contenu d'un listbox dans un fichier txt, une ligne du doc txt pour chaque ligne de listbox.
Etienne

Orion · Answer

Si ton bouton s'appelle cmd

(tu devras peut etre ajouter userform1.listbox1....)

sub cmd_click()
dim contenu()
compte=listbox1.listcount-1
redim contenu(compte)
for i=0 to compte
contenu(i)=listbox1.list(i)
next
open "MONfichier.txt" for output as #1
for i=0 to compte
print #1,contenu(i)
print #1,
next
close #1

end sub

Etienne · Answer

Comment fait-on pour qu'il n'y ait pas d'espace entre les text du listbox dans le fichier .txt.
Merci 
etienne

Orion · Answer

Je ne comprend pas ?

Etienne · Answer

exemple : 

Text1
Pas d'espace ici
Text2

Text3

...

Et comment fait-onpour enlever cet espace.
Etienne

Orion · Answer

Tu supprime la ligne print #1,

Etienne · Answer

Comment fait-on pour supprimer une ligne selectionnée dans un listbox, puis qui la supprime en même temps dans un fichier text.
Etienne
Merci Orion !

int19h · Answer

Salut

Supprimer une ligne dans une ListBox : List1.removeitem List1.listIndex

Ensuite tu sauves comme deja vu :

open "fichier.txt" for output as #1
for a=0 to List1.ListCount-1
Print #1, List1.List(a)
next
close

a+