Combobox et TextBox lier avec fichier TXTRésolu

Question

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

PCPT · Accepted Answer

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 [../code.aspx?ID=39466 Coloration VB6, VBA, VBS]

Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

whitelegend · Answer

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

Combobox et TextBox lier avec fichier TXT

2 réponses

Votre réponse

Discussions similaires