1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Sub colle2()
Cells.Clear
Dim PP As New MSForms.DataObject, Txt As String, texte, Tabl, i As Long, derlig
PP.GetFromClipboard: Txt = PP.GetText()
'un peu de netoyage
Txt = Replace(Txt, "[OUT] ", "[OUT]")
Txt = Replace(Txt, "[IN] ", "[IN]")
Txt = Replace(Txt, "Heure Chrono", "Heure-Chrono")
Txt = Replace(Txt, "YELLOW FLAG", " YELLOW-FLAG")
Txt = Replace(Txt, "START", " START")
Tabl = Split(Txt, "Seq Num Heure Tour Temps Heure-Chrono")
For i = 0 To UBound(Tabl)
If Tabl(i) <> "" Then texte = texte & "Seq Num Heure Tour Temps Heure-Chrono" & vbCrLf & Split(Tabl(i), "VolaSoftControlPdf")(0) & vbCrLf
Next
Tabl = Split(texte, vbCrLf)
Cells(1, 1).Resize(UBound(Tabl), 1) = Application.Transpose(Tabl)
Range("A1.H" & Rows.Count).NumberFormat = "@"
Range("a1:a" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A1").CurrentRegion.TextToColumns , Space:=True
'il nous reste mainteant un tout petit soucis certaine ligne manque une colonne (la derniere elle est décallée)
'alors
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To derlig
If Cells(i, "F") = "" Then Cells(i, "F") = Cells(i, "E"): Cells(i, "E") = ""
If Cells(i, "c") = "" Then Cells(i, "c") = Cells(i, "b"): Cells(i, "b") = ""
Next
End Sub |
Partager