Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copier Coller dans Textbox

Copier Coller dans Textbox

5 réponses
Avatar
Didier Novarin
Bonsoir
J'ai un textbox dans un userform
Je souhaite faire du copier coller dans celui-ci.
Lorsque je fait Ctrl+C puis Ctrl+V dans le textbox, cela fonctionne.
Je souhaite mettre des commandbutton un pour le copier, l'autre pour le
coller.
Quel code dois-je insérer afin de faire fonctionner mes 2 commandbutton
Je vous remercie
Didier
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Qu'est-ce que tu copies , une cellule ?
Daniel
"Didier Novarin" a écrit dans le message de
news:
Bonsoir
J'ai un textbox dans un userform
Je souhaite faire du copier coller dans celui-ci.
Lorsque je fait Ctrl+C puis Ctrl+V dans le textbox, cela fonctionne.
Je souhaite mettre des commandbutton un pour le copier, l'autre pour le
coller.
Quel code dois-je insérer afin de faire fonctionner mes 2 commandbutton
Je vous remercie
Didier



Avatar
Didier Novarin
Bonsoir Daniel
Non, du texte dans le textbox
Didier

"Daniel" a écrit dans le message de news:

Bonsoir.
Qu'est-ce que tu copies , une cellule ?
Daniel
"Didier Novarin" a écrit dans le message de
news:
Bonsoir
J'ai un textbox dans un userform
Je souhaite faire du copier coller dans celui-ci.
Lorsque je fait Ctrl+C puis Ctrl+V dans le textbox, cela fonctionne.
Je souhaite mettre des commandbutton un pour le copier, l'autre pour le
coller.
Quel code dois-je insérer afin de faire fonctionner mes 2 commandbutton
Je vous remercie
Didier







Avatar
MichDenis
Émanant de : http://www.cpearson.com/excel/clipboar.htm

Si tu copies du texte...il y a ceci :

'--------------------------
Private Sub CommandButton1_Click()

Me.TextBox1 = GetOffClipboard

End Sub
'--------------------------


'Tu peux placer cette fonction dans un module standard :
'--------------------------
Public Function GetOffClipboard() As Variant
Dim MyDataObj As New DataObject
MyDataObj.GetFromClipboard
GetOffClipboard = MyDataObj.GetText()
End Function
'--------------------------


Cette fonction ... si tu veux vider le presse-papier
'--------------------------
Public Sub ClearClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText ""
MyDataObj.PutInClipboard
End Sub
'--------------------------



"Didier Novarin" a écrit dans le message de news:

Bonsoir
J'ai un textbox dans un userform
Je souhaite faire du copier coller dans celui-ci.
Lorsque je fait Ctrl+C puis Ctrl+V dans le textbox, cela fonctionne.
Je souhaite mettre des commandbutton un pour le copier, l'autre pour le
coller.
Quel code dois-je insérer afin de faire fonctionner mes 2 commandbutton
Je vous remercie
Didier
Avatar
Didier Novarin
Bonsoir Michdenis
Encore une fois merci beaucoup
Bonne soirée
Didier


"MichDenis" a écrit dans le message de news:

Émanant de : http://www.cpearson.com/excel/clipboar.htm

Si tu copies du texte...il y a ceci :

'--------------------------
Private Sub CommandButton1_Click()

Me.TextBox1 = GetOffClipboard

End Sub
'--------------------------


'Tu peux placer cette fonction dans un module standard :
'--------------------------
Public Function GetOffClipboard() As Variant
Dim MyDataObj As New DataObject
MyDataObj.GetFromClipboard
GetOffClipboard = MyDataObj.GetText()
End Function
'--------------------------


Cette fonction ... si tu veux vider le presse-papier
'--------------------------
Public Sub ClearClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText ""
MyDataObj.PutInClipboard
End Sub
'--------------------------



"Didier Novarin" a écrit dans le message de
news:

Bonsoir
J'ai un textbox dans un userform
Je souhaite faire du copier coller dans celui-ci.
Lorsque je fait Ctrl+C puis Ctrl+V dans le textbox, cela fonctionne.
Je souhaite mettre des commandbutton un pour le copier, l'autre pour le
coller.
Quel code dois-je insérer afin de faire fonctionner mes 2 commandbutton
Je vous remercie
Didier





Avatar
Michel Pierron
Bonsoir Didier;
Sans se prendre la tête:

Me.TextBox2.SelLength = Len(Me.TextBox2.Value)
Me.TextBox2.Copy

On Error Resume Next
Me.TextBox1.Paste

MP

"Didier Novarin" a écrit dans le message de
news:
Bonsoir
J'ai un textbox dans un userform
Je souhaite faire du copier coller dans celui-ci.
Lorsque je fait Ctrl+C puis Ctrl+V dans le textbox, cela fonctionne.
Je souhaite mettre des commandbutton un pour le copier, l'autre pour le
coller.
Quel code dois-je insérer afin de faire fonctionner mes 2 commandbutton
Je vous remercie
Didier