garder ds données ds 1 Userform apres fermeture

Haricot · 6 Septembre 2005

Salut à tous !
Tout d'abors un grand merci pour m'avoir aidé pour ma précédente question !
Mais maintenant, j'en ai une autre !

Après avoir crée un userform avec, par ex, dess TextBox :

Après fermeture du fichier excel (même apres sauvegarde), lorsque j ouvre de nouveau le fichier, tout ce qui était présent dans les TextBox a disparu !!!

Est ce possible de garde le contenu des Textbox (ou Listbox) meme apres fermeture du fichier excel ???

je vous remercie, ce forum est vraiment cool

Simons · 6 Septembre 2005

Bonsoir Haricot, le forum,

Pour ce que tu veux faire pourquoi ne pas faire :

Code:

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 worksheets('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...

excalibur · 6 Septembre 2005

bonjour haricot , le forum tu peus a la fermeture de ton usf ex dans Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Sheets('feuil1').Range('M1').Value = TextBox1 end sub puis dans Private Sub UserForm_Initialize() TextBox1=Sheets('feuil1').Range('M1').Value end sub dans Sheets
' salutations j ai pas tester mais cela devrait marcher

Haricot · 10 Septembre 2005

Oui, c'est déja comme ca que je m'en sortais !
Apparament, pas de solutions plus simples !! .

En tout cas , un grand merci à vous, c'est très sympa !!!

garder ds données ds 1 Userform apres fermeture

Haricot

Guest

Simons

XLDnaute Occasionnel

excalibur

XLDnaute Impliqué

Haricot

Guest

Discussions similaires