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

 

[Staple1600]

Re : Copier textbox dans presse papier

Bonsoir à tous


RONIBO
Il faudra combien de fois évoquer avec toi les archives du forum, pour qu'un jour tu daignes enfin faire des recherches* avant de poser une question ??
(*comme le conseille judicieusement le point 1) (section Demandeur) de la charte du forum)

Maintenant que tu l'as posée, tu peux derechef aller voir en bas de page dans les Discussions similaires, les cinq liens qui s'y trouvent.

EDITION:Ci-dessous un exemple issu des archives et vieux de 10 ans ... et qui réponds à ta question.
https://www.excel-downloads.com/threads/copier-la-valeur-dun-textbox-ou-combobox.42518/

 

[Dranreb]

Re : Copier textbox dans presse papier

Bonsoir.

Je ne vois pas le rapport de ce code avec l'intitulé, mais ces deux procédures vous permettent d'envoyer ou de récupérer des textes dans le ou du presse papier.

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

J'attends toujours une réponse à cette discussion.

 

[Staple1600]

Re : Copier textbox dans presse papier

Bonsoir Dranreb

Si il s'agit simplement de copier, on peut simplement copier
(voir édition de mon précédent message)

EDITION: Le code de 2005 remanié en 2015 avec des endives

Private Sub CommandButton1_Click()
With TextBox1
.SelStart = 0: .SelLength = .TextLength: .Copy
End With
End Sub

 

[RONIBO]

Re : Copier textbox dans presse papier

Re,

Merci bien pour les propositions

Je vais me pencher vers le code staple1600

Dranreb : Salut, je vais bientôt passer à ce problème, pour le moment j'ai pas trop le temps

 

[RONIBO]

Re : Copier textbox dans presse papier

Staple1600 pour coller avec ta méthode ça marche comment ?

jn past suffit?

 

[Staple1600]

Re : Copier textbox dans presse papier

re

RONIBO
Stp, n'oublies surtout pas de te pencher sur le moteur de recherche interne du forum avant tes prochaines questions
(voir le message#2 de ce fil)

 

[RONIBO]

Re : Copier textbox dans presse papier

D'accord je ferais attention la prochaine fois

 

[Dranreb]

Re : Copier textbox dans presse papier

Pour copier avec mes procédures:

PressePapier = TexbBox1.Text

Pour coller :

TexbBox1.Text = PressePapier

 

[Staple1600]

Re : Copier textbox dans presse papier

Re


RONIBO

Staple1600 pour coller avec ta méthode ça marche comment ?

Pour coller où?
Chez moi, un simple CTRL+V colle le contenu du presse-papier là où je veux le coller
(bien évidemment, je ferme l'userform au préalable)

 

[herve62]

Re : Copier textbox dans presse papier

Bonsoir à tous
Bon encore et DERNIERE fois
Il faut être BON .. mais pas C..
Si vous saviez le temps que j'ai passé en 2013 ( 2 mois par mp) pour lui et ensuite il RE passe via le forum ??
Il y a de quoi à être dégouté ,
DRANREB

J'attends toujours une réponse à cette discussion.

L'espoir fait vivre !!
Moi j'ai pris mon parti ... prenez le votre !!
Bonne nuit

 

[RONIBO]

Re : Copier textbox dans presse papier

Je vais essayer ton code Dranreb,
Prendre du presse papier puis le coller dans un textbox, grâce à un bouton

 

[Staple1600]

Re : Copier textbox dans presse papier

Re, bonjour hervé62

RONIBO

D'accord je ferais attention la prochaine fois

Ne fais pas des promesses que tu ne tiens pas
Souviens-toi...
https://www.excel-downloads.com/threads/choix-pour-envoyer-une-piece-jointe-avec-outlook.216734/

 

[RONIBO]

Re : Copier textbox dans presse papier

Bon décidément c'est ma soirée, tout le monde m'en mets plein la geule!!!

 

[Staple1600]

Re : Copier textbox dans presse papier

Re

RONIBO

Prendre du presse papier puis le coller dans un textbox, grâce à un bouton

Tu veux copier le contenu du presse-papier dans un textbox
ou le contenu d'un textbox dans le presse-papier (voir ton premier message et son titre) ??

NB: personnellement, je te mets rien nulle part, je ne fais qu'évoquer le passé
(voir lien dans le message #13)

EDITION: Une version améliorée de mon code précédent car au final il faut bien faire quelque chose avec ce qu'il y a dans le presse-papier

Private Sub CommandButton1_Click()
Dim a$
With TextBox1
.SelStart = 0: .SelLength = .TextLength: .Copy
End With
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.GetFromClipboard: a = .GetText(1)
End With
MsgBox a
'ou si recopie dans une cellule
'Range("A1") = a
End Sub

NB: Il restera à ajouter la gestion d'erreur au cas où le textbox serait malencontreusement vide quand on clique sur le bouton.