Copier textbox dans presse papier

RONIBO

XLDnaute Impliqué
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
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG