clipboard à décharger dans une colonne

Pierrot93 à dit:

Re

pour enlever les éventuels sauts de paragraphes :

Code:

Sub test()
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject, z, i As Byte, y, w
Application.ScreenUpdating = False
x.GetFromClipboard
z = Split(x.GetText(1), vbTab)
For i = LBound(z) To UBound(z)
    Cells(i + 1, 1) = Split(z(i), vbCr)
Next i
Application.ScreenUpdating = True
End Sub

si ce sont des sauts de lignes, remplaces "vbCr" dans le code par ""vblf"

@+

Cliquez pour agrandir...