[XL-2007] textbox vers Listbox

textbox vers Listbox

Bonjour,

Je sais comment faire pour afficher les valeurs du Textbox vers la Listbox mais le problème c'est qu'une fois le programme executé la listbox perd ses valeurs

est ce que vous pouvez me dire comment faire pour enregister les valeurs de la listbox pour qu'elle soit toujours visible? en gros sauvegarder les valeur que j'envois vers la listebox

Merci beaucoup

voici mon code:
Code:

1 2 3 4 UserForm1.ListBox1.AddItem (TextBox1.Text) UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 0) = TextBox4.Value
Merci bcp

stockage

Bonjour,

Il faut stocker les infos soit dans les cellules d'une feuille soit dans un fichier.

La 1ère méthode est la plus simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
 
Dim i  As Integer
UserForm1.ListBox1.AddItem (TextBox1.Text)
UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 0) = TextBox4.Value
For i = 0 To ListBox1.ListCount - 1
   Worksheets(1).Range("A" & i + 1).Value = ListBox1.List(i)
Next i
 
End Sub
 
Private Sub UserForm_Activate()
Dim i  As Integer
 
i = 1
While Worksheets(1).Range("A" & i).Value <> ""
   ListBox1.AddItem Worksheets(1).Range("A" & i).Value
   i = i + 1
Wend
 
End Sub

Merci bcp