garder les info d'une listbox

[marc]

Bonsoir le forum,

j'ai trouvé sur un fil comment garder les info d'un usf même après la fermeture du fichier.
Je suis nul en Vba et je voudrais qu'on ma'aide à adapter la macro ci dessous à mon projet.

merci de votre aide

textbox1.value = range('a3')



Par exemple...

Pour la listbox tu dois spécifier l'emplacement de tes données à l'initialisation de ton USF :



Code:
sub userform_initialize()
'les variables
dim Cel as range
dim I as integer
with worksh eets('feuil2')
'Determine la dernière ligne de ta liste
I = .Range('a65536').End(xlUp).Row
'pour chaque cellule à partir de A1 jusqu'à I
For Each Cel In .Range('a1:a' & I)
'on ajoute cette cellule dans la liste
listbox1.AddItem Cel
'prochaine cellule
Next Cel
End With
End Sub




A toi d'adapter pour tes besoins... [file name=marcexempledim_20060123190510.zip size=43442]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marcexempledim_20060123190510.zip[/file]