copier le contenu de ma TARGET dans le presse papier

[chris6999]

Bonjour le forum

J'essaye par un double clic de copier le contenu de ma "Target" dans le presse papier.
Rien de délirant à priori … pourtant je ne trouve pas de solution.
Je précise que je ne souhaite pas de destination précise pour cette valeur copiée. Je souhaite pouvoir juste l'utiliser dans d'autres applications.

La seule solution que j'ai pu trouver c'est de copier la valeur dans une cellule donnée et de faire un copier de cette cellule ensuite… mais c'est du bricolage!

Il doit bien y avoir une solution plus simple?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then 'double clic sur colonne 3 C
'Application.ScreenUpdating = False
Target.Copy
'Application.ScreenUpdating = True
CreateObject("Wscript.shell").Popup "DONNEES : " & Target.Value & " COPIÉES DANS LE PRESSE PAPIER", 1, "COPIE DES DONNEES"
End If
End Sub

Merci de votre aide
Bonne journée

 

[PMO2]

Bonjour,

Essayez

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then 'double clic sur colonne 3 C
  Target.Copy
  CreateObject("Wscript.shell").Popup "DONNEES : " & Target.Value & " COPIÉES DANS LE PRESSE PAPIER", 1, "COPIE DES DONNEES"
 
  Cancel = True '//// instruction supplémentaire
 
End If
End Sub

 

[chris6999]

Bonjour

Cela fonctionne parfaitement merci.
Petite question à quoi sert le "cancel true" que tu mets
en fin de code?

Bonne journée