M
marc
Guest
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]
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]
