XL 2016 COPIER COLLER Facilement

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

Dranreb à dit:

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

Cliquez pour agrandir...

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 ?

Ben montrez votre ligne de code

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

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

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.

Dranreb à dit:

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.

Cliquez pour agrandir...

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