sauvegarde les données d'une listbox

Question

bonjour
 
comment je sauvegarde les données d'une listbox
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

PCPT · Answer

salut

' CHARGER UN COMBOBOX OU UNE LISTBOX À PARTIR D'UN FICHIER (ET VICE VERSA) ' http://www.codyx.org/snippet_charger-combobox-ou-listbox-partir-fichier-vice-versa_294.aspx#952 ' Posté par [ PCPT ] le 04/02/2007

Public Sub LoadLstCboFromFile( ByRef oObj As Object , sPath As String , Optional bClear As Boolean = True ) ' oObj doit être une ListBox ou un ComboBox n'étant pas en lecture seule Dim FF As Integer, sLine As String FF = FreeFile If bClear Then oObj.Clear If LenB(Dir(sPath, vbSystem Or vbHidden)) > 0 Then Open sPath For Input As #FF Do Until EOF(FF) Line Input #FF, sLine If LenB(sLine) > 0 Then oObj.AddItem sLine Loop Close #FF End If End Sub Public Sub SaveLstCboToFile(ByRef oObj As Object, sPath As String) ' oObj doit être une ListBox ou un ComboBox Dim FF As Integer, i As Integer FF = FreeFile Open sPath For Output As #FF For i = 0 To oObj.ListCount - 1 Print #FF, oObj.List(i) Next Close #FF End Sub

contra69005 · Answer

merci pour votre reponse mais je met ca ou dans mon programe

PCPT · Answer

dans un module c'est une idée

Sauvegarde les données d'une listbox

3 réponses

Votre réponse

Discussions similaires