Combobox et TextBox lier avec fichier TXT [Résolu]

Signaler
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

Dans une form, j'ai une combobox et une textBox,
La combo est lier à un fichier TXT par le code:

Private Sub Form_Load()
Open "C:\Rapport événement\Base de donnée Evenement.txt" For Input As #1
While Not EOF(1)
Line Input #1, l$
Combo1.AddItem (l$)
Wend
Close #1
End Sub

Ce fichier TXT est sous la forme:

Prénom   |Tab|   Nom
Prénom   |Tab|   Nom
Prénom   |Tab|   Nom
....

Comment je peut mettre dans la combobox uniquement les prénoms et que quand je sélectionne un prénom dans la combo il apparait dans la textBox le nom.

Je sais pas si je m'explique bien!

Merci de votre aide

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
salut,

comme très souvent, la réponse sur CODYX.ORG


http://www.codyx.org/snippet_recuperer-contenu-fichier-sous-forme-tableau-multidimensionnel-apres_508.aspx#1598






plus qu'à mettre en place






Option Explicit


Dim 
aFile() 
As String




Private Sub 
Form_Load()

    Dim i%, j%
    aFile = GetColumnsFromFile("C:\Rapport
événement\Base de donnée Evenement.txt", vbTab)
    For i = 0 To UBound(aFile)
        Combo1.AddItem aFile(i, 0)
    Next i
End Sub

Private Sub Combo1_Click()
    Text1.Text = aFile(Combo1.ListIndex, 1)
End Sub





<small>
[../code.aspx?ID=39466 Coloration VB6, VBA,
VBS]
</small>








<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Messages postés
156
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
2 mars 2009

Salut,

Regarde du coté de la fonction Split() pour chaque ligne de ton fichier ca correspond à ce que tu recherches.

LC

__________________________________________________________________________
Pensez à accepter les réponses qui vous servent