Séparation des données

Sub test()
Application.ScreenUpdating = True
derlin = Range("L2").End(xlDown).Row
Range("A" & derlin + 1 & ":E65536").Clear
For n = 1 To derlin
tablo1 = Split(Range("L" & n), ";")
tablo2 = Split(Range("S" & n), ";")
For m = LBound(tablo1) To UBound(tablo1)
For p = LBound(tablo2) To UBound(tablo2)
'MsgBox (tablo1(m) & " " & tablo2(p))
Range("A" & n).Copy Destination:=Cells(derlin + 2 + n, 1)
Range("B" & n).Copy Destination:=Cells(derlin + 2 + n, 2)
Range("C" & n).Copy Destination:=Cells(derlin + 2 + n, 3)
Range("D" & n).Copy Destination:=Cells(derlin + 2 + n, 4)
Range("E" & n).Copy Destination:=Cells(derlin + 2 + n, 5)
Range("F" & n).Copy Destination:=Cells(derlin + 2 + n, 6)
Range("G" & n).Copy Destination:=Cells(derlin + 2 + n, 7)
Range("H" & n).Copy Destination:=Cells(derlin + 2 + n, 8)
Range("I" & n).Copy Destination:=Cells(derlin + 2 + n, 9)
Range("J" & n).Copy Destination:=Cells(derlin + 2 + n, 10)
Range("k" & n).Copy Destination:=Cells(derlin + 2 + n, 11)
Range("K" & n).Copy

Cells(derlin + 2 + n, 12) = tablo1(m)
Cells(derlin + 2 + n, 12).PasteSpecial Paste:=xlPasteFormats

Range("M" & n).Copy Destination:=Cells(derlin + 2 + n, 13)
Range("N" & n).Copy Destination:=Cells(derlin + 2 + n, 14)
Range("O" & n).Copy Destination:=Cells(derlin + 2 + n, 15)
Range("P" & n).Copy Destination:=Cells(derlin + 2 + n, 16)
Range("Q" & n).Copy Destination:=Cells(derlin + 2 + n, 17)
Range("R" & n).Copy Destination:=Cells(derlin + 2 + n, 18)
Range("R" & n).Copy

Cells(derlin + 2 + n, 19) = tablo2(p)
Cells(derlin + 2 + n, 19).PasteSpecial Paste:=xlPasteFormats


Range("T" & n).Copy Destination:=Cells(derlin + 2 + n, 20)
Range("U" & n).Copy Destination:=Cells(derlin + 2 + n, 21)
Range("V" & n).Copy Destination:=Cells(derlin + 2 + n, 22)
Range("W" & n).Copy Destination:=Cells(derlin + 2 + n, 23)
Range("X" & n).Copy Destination:=Cells(derlin + 2 + n, 24)
Range("Y" & n).Copy Destination:=Cells(derlin + 2 + n, 25)

derlin = derlin + 1
Next p
Next m
derlin = derlin - 1
Next n
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...