range("a1" ).RESIZE(range("a1" ).end(xldown).row).select
fcont=selection.count
redim flist(fcont) i=0 for each cc in selection flist(i)=cc i=i+1 next
listbox1.list()=flist
navarro
oui ca marche mais ca me selectionne toute la page et moi je ve que la premiere colone
hum...comment on fait?
navarro
ok merci j'essai ca tt de suite
nur
dim flist() range("a1" ).select selection.currentregion.select fcont=selection.count redim flist(fcont)
i=0
for each cc in selection
flist(i)=cc
i=i+1
next
listbox1.list()=flist
nur
Je crois que:
dim flist()
range("a1" ).select
selection.currentregion.select
fcont=selection.count
redim flist(fcont)
listbox1.list()=flist
devrais marcher
navarro
hum...oui mais je me suis mal exprimer peux etre Je dois non plus toucher au code en fait ce qu il fo faire c est lire la colonne A TANT QUE il y a qqch
s il y a plus rien il fo s'arreter
nur
listbox1.additem("NouvelleDonnee" )
navarro
Merci nur ca marche
J'ai pris la deuxieme methode
Mais si je ve selectionner tout ce qu il y a ds la colone A
mais pas plus je fais comment sachant que si je veux rajouter une donnee je ve pas avoir a changer listbox1.rowsource="a1:a10" en listbox1.rowsource="a1:a11"
nur
ou bien si tu mets tes donnees source dans un tableau:
dim tab(9)
for i=0 to 9
tab(i)=sheets("feuil1" ).range("a1" ).offset(i).value
next
listbox1.list()=tab
nur
si tes donnees sont dans feuil1 et a1:a10
sub userform_initialize()
sheets("feuil1" ).select
listbox1.rowsource="a1:a10"
userform1.show
end sub
navarro
Dans un fenetre UserForm j'ai une listBox et je voudrai la remplir mais avec de donner qui se trouve dans une colonne d'un document Excel. Et je ne sais pas comment m'y prendre. Je sais juste remplir un ListBox manuellement
Merci
