[Excel / VBA] Fermé

Question

Bonjour,
j'ai un petit problème de programmation sous VBA
je sais ce que je veux faire en pseudo code mais je n'arrive pas à le coder en language VBA
c'est pourquoi j'aurais besoin de votre aide

Donc voici mon probleme:

 - Creer un tableau à une colonne
 - Ouvrir un fichier txt
      - Parcourir ce fichier texte ligne par ligne
           - Quand les 2 premiers caractères de la ligne correspondent à: "US"
                - Copier les caracteres depuis le debut de la ligne jusqu'à la tabulation dans le tableau
           - Quand on arrive à la fin du fichier texte
                - Copier les valeurs du tableau sur la colonne A de la feuille (1) du excel en cours

Voila dans les grandes lignes ce que doit faire la lmacro VB

Toute aide serait la bienvenue
Merci

albert · Answer

Dis moi si ça convient:

CheminFichier = "chemin du fichier"
NomFichier = "nom du fichier"

i = 0

Open CheminFichier & NomFichier For Input As #1

Do While Not EOF(1)

Line Input #1, Maligne

If Left(Maligne, 2) = "US" Then
    i = i + 1
    Cells(i, 1).Value = Maligne
End If

Loop

Close #1

cpin · Answer

Excelent,
mais je voudrais ne pas copier toute la ligne du fichier excel mais m'arreter à la première tabulation

albert · Answer

Tu peux me joindre un fichier (même incomplet) pour faire quelques essais?
Tu vas sur https://www.cjoint.com/ puis tu colles le lien fourni dans ton post de réponse

cpin · Answer

voici le fichier *.rpt

https://www.cjoint.com/?dvn5KYa6Q0

albert · Answer

Ben voila=

If Left(maligne, 2) = "US" Then
    i = i + 1
    mapos = InStr(1, maligne, Chr(9)) - 1
    Cells(i, 1).Value = Left(maligne, mapos)
End If

tu incorpores les lignes en gras à ce que je t'ai déjà transmis .

A+

cpin · Answer

C'est exactement ca
merci beaucoup pour ton aide rapide et très utile
a+