Copier la valeur d'une cellule dans le Presse Papiers

[jb78]

Bonjour,
A des fins d'automatisation d'un certain type de traitement, je souhaite que dès que je sélectionne une cellule, sa valeur soit copiée dans le presse papier.
Pour cela, j'utilise l'évènement SelectionChange, je n'ai pas de pb avec ça.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Copy
End Sub

Par contre, la copie ne fonctionne pas comme je le souhaite.
"Copy" effectue un copier comme "Edition/Copier", (avec la cellule entourée de pointillés).
Ce n'est pas ce copier là que je veux, car la valeur n'est alors pas dans le presse papier. Pour vous en rendre compte, faites un copier d'une cellule, allez sur une autre cellule, faites F2 pour passer en mode édition de cellule, et faites un coller... rien ne se passe. C'est justement un copier/coller comme cela que je souhaite obtenir. Je précise que je ne fais pas le "coller" dans Excel.
Je ne sais pas si c'est très clair, mais si quelqu'un a une solution, je suis vraiment preneur.

Merci.
JB78

 

[myDearFriend]

Bonjour JB78,


Une solution adaptée de Chip Pearson,
Pour copier la valeur de la cellule C dans le Presse-Papier :

Sub Copier(C as Range)
Dim Dobj As New DataObject
Dobj.SetText C.Value
Dobj.PutInClipboard
End Sub


Cordialement,
Didier_mDF

 

[jb78]

Merci Didier,

DataObject n'est pas reconnu dans mon code, faut il faire référence à une lib particulière ?


JB

 

[myDearFriend]

Re JB78,


Pour que DataObject soit reconnu, il faut effectivement que tu rajoutes la référence "Microsoft Forms 2.0 object library" à ton projet VBA.


Cordialement,
Didier_mDF