Comment compléter une listbox après sélection dans une combobox ?Résolu

Question

Bonjour,

Comment faire pour remplir une listbox apr&#232;s s&#233;lection dans une combobox?
ex:
Liste combobox : "application 1", "application 2" and "application 3".
S&#233;lection "application 1", --> listbox :"nom 1", "nom 2", "nom 3".
S&#233;lection "application 2",  --> listbox :"message 1", "message 2"
S&#233;lection "application 3",  --> listbox :"prix 1", "prix 2", "prix 3", "prix 4"

Je pr&#233;f&#232;rerais utiliser des fichiers texte externes car plus facile pour la maintenance de l'application. Cela &#233;vite de devoir recompiler tout en cas de changement.
Le pre;ier fichier contient les valeurs affich&#233;es dans la combobox et le deuxi&#232;me les valeurs de la listbox.
Le probl&#232;me est de lier les infos de chaque fichier.
Si combo.txt contient :
ligne 1 : app 1
ligne 2 : app 2
ligne 3 : app 3
ligne 4 : .....

and list.txt contains :
ligne 1 : app 1 nom 1
ligne 2 : app 1 nom 2
ligne 3 : app 1 nom 3
ligne 4 : app 2 message 1
ligne 5 : app 2 message 2
ligne 6 : app 3 prix 1
ligne 7 : app 3 prix 2
ligne 8 : app 3 prix 3
ligne 9 : app 3 prix 4
ligne 10: .......

Toute aide est le bienvenue.

Je vous remercie d'avance.

Tommy

PCPT · Accepted Answer

en effet, il te faut 3fichiers texte, avec les chemins en dur.
appellons les TxtFileCombo 1 2 3.txt

'd&#233;claration
Const FilePath as string = "\TxtFileCombo"
Dim FF as integer 'pour l'indice du fichier texte

et dans ton Combo_Click, tes indices pour application 1 2 3 seront donc de 0 1 2

FF = FreeFile
dim i as integer
i=0

Dim Ligne as string

Open App.Path & FilePath & (Combo.ListIndex+1) & ".txt" For Input As #FF
        Do While Not EOF(FF)
      input #FF, Ligne
         'et l&#224; tu as, ligne par ligne, tout ce que tu veux. tu as i pour compter, etc.... exemple :
         List.AddItem ligne
         i=i+1
         Loop
Close #FF
debug.print "j'ai " & i & " ligne(s)"

voil&#224;. et oublie pas une petit List.Clear avant... ;)

PCPT

BZY1 · Answer

salut essayes &#231;a:

Sub combo1_click( )
    liste1.AddItem (combo1.ListIndex)
End Sub

Quand tu cliques sur un des choix propos&#233;s par ton combobox celui si est report&#233; dans la liste (normalement).

BZY1 · Answer

Ah pardon! je n'avais lu que le titre.

Select case liste1.listindex

Case ListIndex=0
      list1.additem nom1
      list1.additem nom2
      ....
case listIndex=1
      list1.additem nom1
case listIndex=2
      list1.additem nom1

End Select

j'esp&#232;re que c'est ce que tu cherchais

BZY1 · Answer

mrd je me suis tromp&#233;
select case combo1.listindex

tommyknockers · Answer

Salut,

Comme &#231;a, &#231;a marche bien, mais toutes les valeurs sont hardcod&#233;es. Si je veux changer ou ajouter une valeur, je dois tout recompiler. Je voudrais utiliser 2 fichiers texte pour stocker les valeurs.

Merci