Listbox (sauvegarde)

Résolu/Fermé
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 10 juin 2009 à 13:34
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 10 juin 2009 à 16:18
Bonjour,

je souhaiterais savoir si quelq'un peu me dire si c possible de sauvegarde des données dans une listbox

jai deux listbox : listbox1 et listbox2 et un bouton ajouter le tou dans un userform
quand je selectionne dans listbox1 et je ajouter , ca s'ajoute dans listbox2 , mais quand je ferme et j'ouvre une deuxsieme fois mon userform, ma listbox 2 est vide , es ce normale? et si non comment je pourrai faire pour sauvegarder mes données dans ma listbox2

merci pour votre aide

bouton ajouter

Private Sub AddButton_Click()

ListBox2.AddItem ListBox1.Text
ListBox3.AddItem ListBox1.Value

End Sub
A voir également:

4 réponses

jeremieca Messages postés 178 Date d'inscription lundi 9 juillet 2007 Statut Membre Dernière intervention 16 mars 2015 28
10 juin 2009 à 14:23
Salut,

Oui c'est normal, il ne conserve rien. Tu pourrais enregistrer par exemple leur contenu dans un fichier à part en faisant une boucle pas exemple... Ou sinon je sais qu'il existe des codes sur le net à ce sujet, cherche bien !

+
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 295
10 juin 2009 à 14:23
Oui!

Le listbox affiche des données "volatile"
Quand tu le ferme tu le vides.

Personnellement, j'utilise

Private Sub UserForm_Initialize()
' iniatialisation des variables
Userform1.listbox1.list=MonTableauList()


End Sub


et j'ai pris soin de remplir mon tableau dans un module
Comme ça!


Public MonTableauList() As String

sub moduledudebut()
dim nbrlig as integer
Sheets("Feuil1").Select
Range("A3").Select
nbrlig = Range("A3").CurrentRegion.Rows.Count - 1 ' je ne compte pas le titre

For i = 0 To nbrlig
ReDim Preserve MonTableauList(i + 1)

' le tableau contient la liste
ListeDevisesCode(i) = Range("A3").Offset(i, 0).Value
Next i

end sub

A+
0
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
10 juin 2009 à 15:59
bonjour

merci mec yavais de l'idée la , enfaite au lieu de remplir ma listbox 2 , je rempli un tableau, et pour listbox2 sur rowsource je met la plage de mes données. merci et bonne soirer
0
jeremieca Messages postés 178 Date d'inscription lundi 9 juillet 2007 Statut Membre Dernière intervention 16 mars 2015 28
10 juin 2009 à 14:37
Heu bidouille tu parle pour Excel non là ?

Je sais pas ce que notre ami veut :S

+
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 295
10 juin 2009 à 16:18
Ben je crois que c'est bon pour lui!
Enfin, j'espère.
Sinon, il faudra quand même initialiser... : )
0