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

si tes donnees sont dans feuil1 et a1:a10
 
sub userform_initialize()
sheets("feuil1" ).select
listbox1.rowsource="a1:a10"
userform1.show
end sub

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

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"

listbox1.additem("NouvelleDonnee" )

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

Je crois que:
 
dim flist()
range("a1" ).select
selection.currentregion.select
fcont=selection.count
redim flist(fcont)
listbox1.list()=flist
 
devrais marcher

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

ok merci  j'essai ca tt de suite

oui ca marche  mais ca me selectionne toute la page  et moi je ve que la premiere colone
 
hum...comment on fait?

dim flist()  
 
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

nickel  ca marche
 
je t envoie un mail ds 2 min nur