Discussion :

[saman_all]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci bcp

[bellande]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[saman_all]

Merci bcp