Copier Label.caption et coller par Ctrl + v

[carlos]

Bonjour

J'aimerai copier le contenu de mon Label1 ( presse papier) et pouvoir le coller MANUELLEMENT par un ctrl + v .

Merci Carlos

 

[Pierrot93]

Re : Copier Label.caption et coller par Ctrl + v

Bonjour Carlos

essaye le code ci-dessous, à utiliser dans le module où se trouve le "label" (feuille ou USF), s'applique à un controle de la "boite à outils controles" s'il est posé sur une feuille...

Option Explicit
Sub test()
Dim x As New DataObject
x.SetText Me.Label1.Caption
x.PutInClipboard
End Sub

bonne journée
@+

 

[carlos]

Re : Copier Label.caption et coller par Ctrl + v

Salut Pierrot93

Ça marche impeccable.

Merci beaucoup et bonne journée.

Carlos