Listbox (sauvegarde)
Résolu
amine69500
Messages postés
471
Statut
Membre
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
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 !
+ -
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+ -
Heu bidouille tu parle pour Excel non là ?
Je sais pas ce que notre ami veut :S
+ -
Ben je crois que c'est bon pour lui!
Enfin, j'espère.
Sinon, il faudra quand même initialiser... : )
