vinvinsylvain
Messages postés36Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention12 mars 2010
-
30 janv. 2009 à 13:14
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDerniè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.
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