Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
Avez vous une idée (des idées) pour avoir ce resultat ? Merci de vos reponses Le Lauxeti
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
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
Avez vous une idée (des idées) pour avoir ce resultat ? Merci de vos reponses Le Lauxeti
Sam
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" a écrit dans le message de news:
Bpnsoir, J'ai un pb je recupere un fichier txt de la forme
Avez vous une idée (des idées) pour avoir ce resultat ? Merci de vos reponses Le Lauxeti
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" <ybrunet@wanadoo.fr> a écrit dans le message de news:
b8a54049-2242-462f-97bb-e3bbb022d35d@w39g2000prb.googlegroups.com...
Bpnsoir,
J'ai un pb je recupere un fichier txt de la forme
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" a écrit dans le message de news:
Bpnsoir, J'ai un pb je recupere un fichier txt de la forme