clipboard à décharger dans une colonne

[fifi]

bonjour, comme le titre l'indique je cherche à décharger le clipboard dans une colonne d'un classeur. Ceci dans le but de pouvoir travailler les données copiés dans un autre classeur de facon linéaire..chaque enregistrement l'un apres l'un.

j'ai chercher des fonciton pour décharger le clipboard mais je ne trouve que du code pour supprimer son contenu :s

personne n'aurait une p'tite idée car mon simple :

For i = 1 To clipboard.Count
Sheets("listes").Range("listes_importation_data").Item(i) = clipboard.Item(i)
Next i

fait ridicule ^^ et ne marche pas bien sur.

 

[fifi]

Re : clipboard à décharger dans une colonne

nikel 😀

c'est encore plus simple ^^

merci beaucoup.

 

[fifi]

Re : clipboard à décharger dans une colonne

Très en retard mais merci Pierrot 😀

Re

pour enlever les éventuels sauts de paragraphes :

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"

@+