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.

 

[job75]

Re : clipboard à décharger dans une colonne

Bonjour fifi,

Je ne comprends pas bien où est le problème.

Clipboard est le terme anglais pour "presse-papier". Le presse-papier est rempli par une opération couper ou copier.

Pour décharger le presse-papier sur une feuille de calcul, utiliser la méthode Paste, donc dans votre exemple :

With Sheets("listes")
.Paste .Range("listes_importation_data").Cells(1, 1)
End With

A+

 

[fifi]

Re : clipboard à décharger dans une colonne

héhé oui oui pour ca il n'y a pas de pb ..le pb c'est pour le décharger dans une colonne unique :s
chaque enregistremnt les uns après les autres

 

[Pierrot93]

Re : clipboard à décharger dans une colonne

Bonsoir fifi, Job

essaye peut être comme ci dessous, mais sans voir les données copiées difficile d'en dire plus :

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

bonne soirée
@+

 

[fifi]

Re : clipboard à décharger dans une colonne

merci ..je test cela mais pour l'instant je n'arrive pas à le faire fonctionner.

normalement les données copiées proviennent d'une plage de cellule excel et son du format texte


(excel 2003)

 

[fifi]

Re : clipboard à décharger dans une colonne

humm j'ai une erreur jamais vu encore :s

DataObjetc :getstructure FORMATETC non valide.

 

[Pierrot93]

Re : clipboard à décharger dans une colonne

Re

as tu activé la référence :

Microsoft Forms 2.0 Object Library

comme précisé en commentaire dans le code ?

@+

 

[fifi]

Re : clipboard à décharger dans une colonne

oui oui :s

 

[Pierrot93]

Re : clipboard à décharger dans une colonne

Re

je viens de tester, ce message est renvoyé lorsque le presse papier est vide... il faut bien évidement qu'il y ait quelque chose à l'intérieur.

@+

 

[fifi]

Re : clipboard à décharger dans une colonne

j'essaye la macro dans un nouveau classeur et la j'ai ce message d'erreur
sur cette ligne :
Dim x As New DataObject, z, i As Byte

message : type défini pa rl'utilisateur non défini

 

[fifi]

Re : clipboard à décharger dans une colonne

humm pourtant j'essaye après avoir copié quelque chose :/

 

[Pierrot93]

Re : clipboard à décharger dans une colonne

Re

pour ton nouveau classeur la référence ne doit pas être activée, une référence est active pour un classeur donné, sinon mets un petit fichier en pièce jointe, avec résultat attendu, sans données confidentielles, mais reproduisant le problème.

@+

 

[fifi]

Re : clipboard à décharger dans une colonne

humm ok , dans le fichier vide ou j'ai essayé la réf n'étaot pas activée effectivement.

le collage se fait mais il y a des petit carré en plus.
je vais essayer de m'en sortir avec.

 

[fifi]

Re : clipboard à décharger dans une colonne

humm ok , dans le fichier vide ou j'ai essayé la réf n'étaot pas activée effectivement.

le collage se fait mais il y a des petit carré en plus.
je vais essayer de m'en sortir avec.



après vérification la macro rajoute des "petits carré quand la plage copié comporte plusieurs lignes ( un carré par ligne)

ca fait le faire , je vais faire un rempalcement
merci beaucoup ca va marcher 😀

 

[Pierrot93]

Re : clipboard à décharger dans une colonne

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"

@+