ville et CP dans un fichier TXT

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Franck
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

Franck

Guest
Bonsoir

Voila j'ai un fichier texte qui resemble a ça
L ABERGEMENT CLEMENCIAT , 1400 , AIN , 1001
L ABERGEMENT DE VAREY , 1640 , AIN , 1002
AMAREINS , 1090 , AIN , 1003
...
J'ai un TextBox ou je saisi le nom de la ville
et un listbox a 4 colonnes pour le retour des réponses

Le but est que a chaque saisie d'une lettre l'appli mette a jour le resultat
(Si je saisi BEA il affiche toutes les villes qui commencent par BEA en colonne1 les Cp correspondant en collone 2 ...)

Open "C:\Program Files\TV1\insee.txt" For Input As #1
ListBox1.AddItem
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Input #1, MyString
xxxx...
xxxx...
Loop
Close #1 ' fermeture fichier

Merci de votre aide
Franck
 
Trier par date Trier par votes
Re : ville et CP dans un fichier TXT

Re Bonjour,
Bravo pour le fichier TXT.
Allez encore un petit effort, il manque plus que l'extrait du fichier Excel avec le textbox, la listbox à 4 colonnes et le début de ta macro. Cela doit faire moins de 50 ko zippé!
 
Vote positif 0 Vote négatif
Re : ville et CP dans un fichier TXT

Ce lien n'existe plusBonsoir

a tester en piece jointe, je suis parti du principe que les deux fichiers etaient dans le meme répertoire (a toi d'adapter la variable chemin au cas ou )

le code :

Code: 
Option Explicit
Dim tablo() As String
Code: 
Private Sub TextBox1_Change()
Dim i As Long

ListBox1.Clear
If TextBox1 = "" Then ListBox1.Clear: Exit Sub

For i = 1 To UBound(tablo, 2)
    If UCase(Left(tablo(1, i), Len(TextBox1))) = UCase(TextBox1) Then
        ListBox1.AddItem tablo(1, i)
        ListBox1.List(ListBox1.ListCount - 1, 1) = tablo(2, i)
        ListBox1.List(ListBox1.ListCount - 1, 2) = tablo(3, i)
        ListBox1.List(ListBox1.ListCount - 1, 3) = tablo(4, i)
    End If
Next i
End Sub
Code: 
Private Sub UserForm_Initialize()
Dim chemin As String, ligne As String
Dim tabtemp 'salut mdf ^^
Dim i As Long
Dim x As Byte

chemin = ActiveWorkbook.Path & "\"


Open chemin & "insee2.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, ligne
        i = i + 1
        ReDim Preserve tablo(1 To 4, 1 To i)
        tabtemp = Split(ligne, ",")
        For x = 0 To UBound(tabtemp)
            tablo(x + 1, i) = tabtemp(x)
        Next x
    Loop
Close #1

End Sub
salut
 

Pièces jointes

Vote positif 0 Vote négatif
Re : ville et CP dans un fichier TXT

Bonjour à tous,

Bravo Hervé ton application est très bien.
Comme quoi avec un fichier c'est 50 % du travail en moins pour ceux qui, comme toi, savent faire et en plus cela permet aux autres forumeurs d'apprendre de nouvelles notions.

Donc encore merci.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Rechercher une ligne dans un fichier texte
Réponses
2
Affichages
953
Franck
F
Retour