Coller du texte dans une textbox

[maval]

Bonjour

Es ce que quelqu'un pourrai me donner le code VBA pour COLLER le presse papier dans une textbox avec un bouton.

je vous remercie d'avance

 

[job75]

Re : Coller du texte dans une textbox

Bonjour maval,

Que vient faire ici le presse-papier ???

Private Sub CommandButton1_Click()
TextBox1 = [K9]
End Sub

A+

 

[job75]

Re : Coller du texte dans une textbox

Re,

Cela dit l'USF étant ouvert en non modal par :

Sub USF()
UserForm1.Show 0 'non modal
End Sub

on peut copier la cellule K9 puis coller dans TextBox1 par ce code :

Private Sub CommandButton1_Click()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
With New DataObject
  .GetFromClipboard
  TextBox1 = .GetText()
End With
End Sub

A+

 

[maval]

Re : Coller du texte dans une textbox

Bonjour Job

Oui je me suis mal exprimer en faite se n'est pas la cellule qui faut copier mais bien le presse papier

excuser moi!

Bonne journée

 

[job75]

Re : Coller du texte dans une textbox

Re,

On a pu voir que le texte peut être suivi du caractère (double) vbCrLf, il est facile de l'éliminer :

Private Sub CommandButton1_Click()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
With New DataObject
  .GetFromClipboard
  TextBox1 = Replace(.GetText, vbCrLf, "")
End With
End Sub

A+

 

[maval]

Re : Coller du texte dans une textbox

Re,

Je vous remercie et vous souhaite une bonne soirée