XL 2016 COPIER COLLER Facilement

Alexy

XLDnaute Nouveau
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
 

Pièces jointes

  • DONNEES REFERENCES.xlsm
    36.4 KB · Affichages: 4

Dranreb

XLDnaute Barbatruc
Bonjour.
Avec cette paire de procédures vous pourrez faire PressePapier = un texte à copier
VB:
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

XLDnaute Nouveau
Bonjour.
Avec cette paire de procédures vous pourrez faire PressePapier = un texte à copier
VB:
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 ?
 

Alexy

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390