Pressepapiers>plage

[errog]

Bonjour,
Je voudrais copier le contenu du presse papiers ( ça sera a chaque fois qq lignes ) dans une colonne par exemple : 3 lignes sont stockées dans le presse papiers et je veux les coller via une macro en B2,B3,B4.

Se posent 2 pbs :
- Je ne sais pas utiliser Paste ( une erreur apparait)
- avec mes différents essais , seule une ligne est stockée en B2

Merci

 

[Pierrot93]

Re : Pressepapiers>plage

Re Errog

Regarde le code ci dessous, si cela ne fonctionne pas, peut être qu'un fichier avec un exemple des données copiées nous aiderait :

Sub test()
'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject, z, i As Byte
x.GetFromClipboard
z = Split(x.GetText(1), vbCrLf)
For i = LBound(z) To UBound(z)
    Range("B" & i + 2).Value = z(i)
Next i
End Sub

@+

 

[errog]

Re : Pressepapiers>plage

Bonsoir
Ca a l'air d'être tout bon.
Je n'ai plus qu'à essayer de comprendre ces qq lignes de code.
Merci

 

[errog]

Re : Pressepapiers>plage

Bonjour,
Question subsidiaire : et l'inverse ?:le bout de code précédent a-til un pti frere qui permet de copier une plage dans le presse papier ou bien y atil une solution plus simple ?
Merci

 

[Pierrot93]

Re : Pressepapiers>plage

Bonjour Errog

voici le petit frère :

Sub test2()
Dim x As New DataObject
x.SetText "123456789" & vbCrLf & "ABCDEFGHI"
x.PutInClipboard
End Sub

sinon, plus classique, pour copier une plage de cellule, mais ca tu connais :

Range("A1:B10").Copy

bonne journée
@+

 

[errog]

Re : Pressepapiers>plage

Rebonjour Pierrot93,

Je n'ai pas encore osé utiliser le "pti frere"
par contre avec la ligne

Range("A1:A3").copy par exemple

le contenu du presse papier est écrit en ligne
contenu A1 espace contenuA2 ...
alors que je le voudrais en colonne ( avec passage a la ligne ) en fait dans la meme configuration que les cellules d'origine.
Merci

 

[errog]

Re : Pressepapiers>plage

RErebonjour,
En fait je crois que j'ai dit n'importe quoi ds le message précédent : je m'étais trompé dans mon test.
Donc ne pas tenir compte du message.
Merci

 

[Pierrot93]

Re : Pressepapiers>plage

Re

et tu colles où et comment tes données, mets peut être le code utilisé dans sa totalité.

@+