Combobox et TextBox lier avec fichier TXT

Résolu
vinvinsylvain Messages postés 36 Date d'inscription dimanche 8 octobre 2006 Statut Membre Dernière intervention 12 mars 2010 - 30 janv. 2009 à 13:14
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 31 janv. 2009 à 14:35
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

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
31 janv. 2009 à 14: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 
3
whitelegend Messages postés 156 Date d'inscription vendredi 13 janvier 2006 Statut Membre Dernière intervention 2 mars 2009
30 janv. 2009 à 14:13
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  
0
Rejoignez-nous