Conversion TXT

Le
lauxeti
Bpnsoir,
J'ai un pb je recupere un fichier txt de la forme


c>aaaaa
ABC1
xxx
xxx
Lieu1
xxx
xxx
CCCC
DDDD
c>bbbb
ABC2
xxx
xxx
Lieu2
xxx
xxx
AAAA
BBBB
.


je souhaite avoir apres traitement

c>aaaaa ABC1 Lieu1 CCCC
c>aaaaa ABC1 Lieu1 DDDD
c>bbbb ABC2 Lieu2 AAAA
c>bbbb ABC2 Lieu2 BBBB

Les données sont remplacées car confidentielles

Avez vous une idée (des idées) pour avoir ce resultat ?
Merci de vos reponses
Le Lauxeti
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18413421
Bonsoir.
Essaie :
Sub test2()
Dim Enrgt As String, Ligne As Long, Col As Integer
Close #1
Col = 1
Open "e:donneesdanielmpfetutu.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Enrgt
If Left(Enrgt, 2) = "c>" Then
Ligne = Ligne + 1
Col = 1
Cells(Ligne, Col) = Enrgt
Else
Col = Col + 1
Cells(Ligne, Col) = Enrgt
End If
Loop
Close #1
Columns("F:G").Delete
Columns("C:D").Delete
For Each c In Range("D1", [D65000].End(xlUp))
For Each x In Range("E" & c.Row & ":IV" & c.Row)
If x = "" Then Exit For
Rows(c.Row + x.Column - 4).Insert
Range(Cells(c.Row, 1), c).Copy Cells(c.Row + 1, 1)
x.Copy Cells(c.Row + x.Column - 4, 4)
x.ClearContents
Next x
Next c
End Sub

Cordialement.
Daniel

Bpnsoir,
J'ai un pb je recupere un fichier txt de la forme


c>aaaaa
ABC1
xxx
xxx
Lieu1
xxx
xxx
CCCC
DDDD
c>bbbb
ABC2
xxx
xxx
Lieu2
xxx
xxx
AAAA
BBBB
....


je souhaite avoir apres traitement

c>aaaaa ABC1 Lieu1 CCCC
c>aaaaa ABC1 Lieu1 DDDD
c>bbbb ABC2 Lieu2 AAAA
c>bbbb ABC2 Lieu2 BBBB

Les données sont remplacées car confidentielles

Avez vous une idée (des idées) pour avoir ce resultat ?
Merci de vos reponses
Le Lauxeti


Sam
Le #18413541
Bonjour,
en mettant les données en colonne A de A1 à ...
mettre en B1
=INDEX(A:A;(LIGNE()+MOD(LIGNE();2))/2*9-8)
en C1
=INDEX(A:A;(LIGNE()+MOD(LIGNE();2))/2*9-7)
en D1
=INDEX(A:A;(LIGNE()+MOD(LIGNE();2))/2*9-4)
en E1
=INDEX(A:A;(LIGNE()+MOD(LIGNE();2))/2*9-MOD(LIGNE();2))
sélectionner de B1 à E1 et tirer vers le bas

Cordialement
Michel dit "Sam"

"lauxeti"
Bpnsoir,
J'ai un pb je recupere un fichier txt de la forme


c>aaaaa
ABC1
xxx
xxx
Lieu1
xxx
xxx
CCCC
DDDD
c>bbbb
ABC2
xxx
xxx
Lieu2
xxx
xxx
AAAA
BBBB
....


je souhaite avoir apres traitement

c>aaaaa ABC1 Lieu1 CCCC
c>aaaaa ABC1 Lieu1 DDDD
c>bbbb ABC2 Lieu2 AAAA
c>bbbb ABC2 Lieu2 BBBB

Les données sont remplacées car confidentielles

Avez vous une idée (des idées) pour avoir ce resultat ?
Merci de vos reponses
Le Lauxeti
Publicité
Poster une réponse
Anonyme