Coller du texte dans une textbox

job75

XLDnaute Barbatruc

• 16 Juillet 2015

• #2

Re : Coller du texte dans une textbox

Bonjour maval,

Que vient faire ici le presse-papier ???

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juillet 2015

• #3

Re : Coller du texte dans une textbox

Re,

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

Code:

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

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

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+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 16 Juillet 2015

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juillet 2015

• #5

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 :

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 = Replace(.GetText, vbCrLf, "")
End With
End Sub

A+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 16 Juillet 2015

• #6

Re : Coller du texte dans une textbox

Re,

Je vous remercie et vous souhaite une bonne soirée

 

Vote positif 0 Vote négatif