econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 15 juil. 2006 à 10:41
Salut,
Avec ta listbox qui s'appelle ListBox1, çà donne ceci :
Dim sTemp As String
Open "fichier.txt" For Input As #1
While not EOF(1)
Line Input#1, sTemp
If UCase(sTemp) = sTemp Then
ListBox1.Additem sTemp
End If
Wend
Close #1
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.