macro copier coller

[MiniBosse]

Bonjour et bon week end à tous,
je voudrais savoir ci ya moyen de realiser une macro pour faire un copier coller de la cellule selectionner avec la souris , d'y rajouter un texte et de coller le tout la ou je pose la souris (avec un ctrl+v ou sans), voici un fichier pour mieu comprendre

 

[pierrejean]

hello miniBosse

pour le fichier voir ici

https://www.excel-downloads.com/external/flash/ZipperFichier.htm

fichier zippé sans accents ni caractères spéciaux ni espaces et inférieur à 50 Ko

 

[MiniBosse]

scuze j'avais pas vue que le fichier n'etait pas passé, le voila enfin

 

[MiniBosse]

 

[MiniBosse]

 

[MiniBosse]

okiiiiiiii, yavait un espace dans le nom du fichier, voila c'est résolu [file name=copierauto.zip size=1904]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copierauto.zip[/file]

 

[Robert]

Bonsoir MiniBosse, bonsoir le forum,

MiniBosse, je te propose le double-Clic pour copier et le Clic-Droit pour coller... [file name=copierauto_V2.zip size=7718]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copierauto_V2.zip[/file]

 

[MiniBosse]

cA marche du tonner, sauf un ti bemole:
le copier coller ne marche que sur la méme feuille, comment faire pour que la macro fonctionne sur une autre feuille, un autre classeur ou une autre application ( un fichier texte par exemple, merci d'avance Robert

 

[Charly2]

Bonsoir MiniBosse, pierrejean et Robert 🙂

Bon, puisque Robert ne semble pas revenir, une autre manière de gérer les mêmes événements (double-click et click droit) en plaçant le code dans ThisWorkbook.

[file name=MiniBosse_CopierColler.zip size=9220]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MiniBosse_CopierColler.zip[/file]

A+ 😉

 

[Robert]

Bonsoir MiniBosse, Charly. bonsoir le forum,

Ben en fait Charly je sèche un peu car je me demandais comment placer quelque chose dans le presse-papier sans l'écrire au préalablement dans une cellule. Parce ton exemple fonctionne sur plusieurs feuilles du même classeur mais plus sur plusieurs classeurs.
Par contre, pour une autre application je n'ai aucune idée de comment procéder.

 

[Charly2]

Salut Robert,

J'avoue que je ne sais pas trop non plus, mais avec le code proposé, on peut coller dans une autre appli ou un autre classeur en passant par Ctrl+v et les données seront bien 'TD/' + valeur de la cellule.

Je sais pô faire mieux :whistle:

EDITION : J'ai testé dans Word pour la valeur et c'est ok.

A+ 😉

Message édité par: Charly2, à: 11/03/2006 23:56

 

[_Thierry]

Bonsoir Mini, Charly, re Robert, le Forum

Oui OK pour le même WorkBook... mais si Mini le veut sur un autre classeur ou une autre application (un fichier texte par exemple)...

Les raccourcis standards :
CTRL C (copier)
CTRL V (coller)
Dans toutes les applications Windows.

Et sinon par VBA on peut forcer pour écrire dans le ClipBoard de Windows comme ceci :

Sub HowToPutDataInTheClipBoard()
Dim MyString As String


MyString = 'Hello this is what it is inthe cellule ' & ActiveCell.Value

With New DataObject
    .SetText MyString
    .PutInClipboard
End With

End Sub

Par la Suite un CTRL V enverra ces données là où bon te semble...

NB étrangement pour utiliser ce code, il faut faire référence à Microsof Form 2.0 Object Library dans Outils/Références de VBE

Bonne Soirée
[ol]@+Thierry[/ol]

 

[Charly2]

re le fil, re Robert, Bonsoir Thierry,

Super !!! Je me demandais si le code que j'avais utilisé était le maximum que l'on puisse faire pour MiniBosse et ton intervention me confirme que oui :silly:

Dommage pour MiniBosse mais je te remercie d'être passé par là Thierry 😉

A+

 

[_Thierry]

Re Salut Charly,

Désolé, je viens de regarder ton fichier et en lisant simplement ton Post auparavant je pensais que tu avais simplement étendu les évènementielles à ThisWorkBook mais je viens de me rendre compte que tu appliques aussi un Objet 'DataObjet' donc sorry d'avoir empiété !

Bonne Soirée
[ol]@+Thierry[/ol]

 

[Robert]

Bonsoir MiniBosse, Charly, Thierry, bonsoir le forum,

P... de ClipBoard ! Des heures que je te cherche...