Copier textbox dans presse papier

[RONIBO]

Bonsoir,

je pense que j'ai tout dit dans l'intitulé

J'ai trouvé ceci sur le forum, ca convient pas pour moi, moi c'est le contenu du textbox en entier sans le sélectionner

Option Explicit
Dim s, i% 'mémorisation

Private Sub TextBox1_Change()
s = Split(TextBox1, ",")
i = 0
End Sub

Private Sub CommandButton1_Click()
With TextBox1
  .SetFocus
  If .Text = "" Then TextBox2 = "": Exit Sub
  .SelStart = InStr(.Text, Trim(s(i))) - 1
  .SelLength = Len(Trim(s(i)))
End With
TextBox2 = Trim(s(i))
i = i + 1
If i > UBound(s) Then i = 0
End Sub

Private Sub UserForm_Initialize()
TextBox1 = "Jean-Paul Belmondo, Mia Farrow, Laura Antonelli, Daniel Ivernel, Daniel Lecourtois"
End Sub

 

[RONIBO]

Re : Copier textbox dans presse papier

Merci staple1600