Discussion :

[milki1]

Bonjour,
comme écrit sur le titre, je veux savoir comment ajouter un élement a une listbox ou bien combobox (normalement c'est avec Additem ou list1.list(0) ="ooo", sauf que le probleme c'est que je veux que l'élement ajouter reste dans la liste meme si on réexecute le programme et que chaque element ajouter apparait a la fin de la liste une fois pour toute

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
 
List1.AddItem "Info"
 
End Sub

[OhMonBato]

Donc il va falloir enregistrer cette liste quelquepart dans un fichier (pour une simple liste un fichier texte peut suffire, pas la peine de se lancer dans les bases de données).

[milki1]

et ya pas absolument d'autre moyen en dehors des fichiers parsque je connais pas trop.

[OhMonBato]

C'est l'occasion d'apprendre ! Ca n'a rien de bien sorcier.

Exemple très basique de lecture/écriture :

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
22
 
Option Explicit
Private Sub Command1_Click()
Dim Nf As Byte
Dim Element As String
Element = "Chaine ajoutée à " & Time
Nf = FreeFile
Open "c:\fichierListe.txt" For Append As #Nf
Print #Nf, Element
Close #Nf
End Sub
Private Sub Command2_Click()
Dim Nf As Byte
Dim Element As String
Nf = FreeFile
Open "c:\fichierListe.txt" For Input As #Nf
Do
  Line Input #Nf, Element
  Debug.Print Element
Loop Until EOF(Nf)
Close #Nf
End Sub

[milki1]

Bonjour et merci ,
ce que je veux faire enfaite, c'est que j'ai un combobox et une listbox et je veux associé pour chaque élement combobox plusieurs élements listbox en affichage.
est ce que c'est possible avec le systéme des fichiers ou bien il me faut se lancé dans les bases données oufff
sinon ton algo a bien marché !!
Merci et a trés bientot

[OhMonBato]

Tu peux détailler un peu plus stp ? Un exemple concret éventuellement...