XL 2016 COPIER COLLER Facilement

[Alexy]

Bonjour la communauté

j'aurais besoin d'une aide pour mettre en place un système de copier la référence trouver grâce a ma barre de recherche et ainsi la coller sur d'autre plateforme ( Word , internet,....)

je vous laisse le document a disposition pour que vous voyez mon point de vue

 

[Dranreb]

Bonjour.
Avec cette paire de procédures vous pourrez faire PressePapier = un texte à copier

Property Let PressePapier(ByVal Z As String)
   With New MSForms.DataObject: .SetText Z: .PutInClipboard: End With
   End Property
Property Get PressePapier() As String
   On Error Resume Next
   With New MSForms.DataObject: .GetFromClipboard: PressePapier = .GetText: End With
   If Err Then MsgBox "Pas de données récupérées", vbCritical, "PressePapier"
   End Property

 

[Alexy]

Bonjour.
Avec cette paire de procédures vous pourrez faire PressePapier = un texte à copier

Property Let PressePapier(ByVal Z As String)
   With New MSForms.DataObject: .SetText Z: .PutInClipboard: End With
   End Property
Property Get PressePapier() As String
   On Error Resume Next
   With New MSForms.DataObject: .GetFromClipboard: PressePapier = .GetText: End With
   If Err Then MsgBox "Pas de données récupérées", vbCritical, "PressePapier"
   End Property

Bonjour

merci de me donner un soutien pour mon problème mais malheureusement même en le mettant en place dans ma ligne de code , celui ci ne s'effectue pas . aurais-je mal procédés ?

 

[Dranreb]

Ben montrez votre ligne de code

 

[Alexy]

Private Sub TextBox1_Change()

Application.ScreenUpdating = False

Range("A2:A564").Interior.ColorIndex = 2
ListBox1.Clear

If TextBox1 <> "" Then
For ligne = 2 To 564
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If

End Sub

Property Let PressePapier(ByVal Z As String)
With New MSForms.DataObject: .SetText Z: .PutInClipboard: End With
End Property
Property Get PressePapier() As String
On Error Resume Next
With New MSForms.DataObject: .GetFromClipboard: PressePapier = .GetText: End With
If Err Then MsgBox , vbCritical, "PressePapier"

End Property

Je vous laisse juger et donner votre avis , vous êtes plus quali que moi la dessus , j'ai commencer a mettre sérieusement récemment

 

[Dranreb]

Vous n'affectez rien à PressePapier dans votre Sub TextBox1_Change.

 

[Dranreb]

Au cas où vous l'auriez mal compris, le dernier argument formel d'une Property Let ne doit pas être spécifié à la façon d'un argument classique, mais derrière le signe égal de l'affectation.

 

[Alexy]

Au cas où vous l'auriez mal compris, le dernier argument formel d'une Property Let ne doit pas être spécifié à la façon d'un argument classique, mais derrière le signe égal de l'affectation.

D'accord. Je vais faire mon possible . Merci pour ton soutien