Copier Contenu d'une TexteBox

Bonjour,

J'aimerai en passant par un macro pouvoir copier le contenu d'une texteBox.

Mon code Bug Erreur QUALIFICATION INCORRECTE

Pourquoi ?

Private Sub CmdBtnCopier_Click()
Dim Copier As String
TxtBxTexte.Text = Copier
Copier.Copy
End Sub

Je pensais que de passer par une variable cela serait possible.

Merci

Bonjour,

Tu peux adapter le code suivant à tes besoins ... il faut une destination de la copie ...

Si la colonne Y stocke les commentaires .. : Sheets("Annuaire").Range("Y2")

Private Sub CmdBtnCopier_Click()
    Me.TxtBxTexte.Value.Copy Destination:=Sheets("Annuaire").Range("Y2")
End Sub

Bonsoir à tous,

Attention, la méthode Copy telle qu'utilisée demande un objet Range à copier.

La syntaxe donnée est donc erronée.

@James :

La syntaxe suivante suffit :

Private Sub CmdBtnCopier_Click()
    Sheets("Annuaire").Range("Y2") = Me.TxtBxTexte.Value
End Sub

En revanche, pour acymospc, si j'ai bien compris, si tu souhaites mettre ton texte dans le presse-papier pour le coller plus tard, il faut faire appel à l'objet DataObject.

Copie la fonction suivante dans un module :

Public Function fSendTextToClipboard(strToSend As String) As Boolean
    Dim dObj As Object
    Set dObj = New DataObject
    With dObj
        .SetText strToSend
        .PutInClipboard
    End With
    Set dObj = Nothing
End Function

Dans le code de ton bouton, mets ensuite simplement :

Private Sub CmdBtnCopier_Click()
fSendTextToClipboard (TxtBxTexte.Text)
End Sub

vba-new a écrit :

@James :

La syntaxe suivante suffit :

Private Sub CmdBtnCopier_Click()
    Sheets("Annuaire").Range("Y2") = Me.TxtBxTexte.Value
End Sub

@vba-new

Tu as parfaitement raison ... Il faut que je garde mes yeux en face des trous !!!

Bonjour James007, vba-new,

Vous êtes des pros

Que du plaisir pour moi de vous lire.

Merci très sincèrement

Bonjour James007, vba-new,

Pourquoi cette ligne?

Sheets("Annuaire").Range("Y2") = Me.TxtBxTexte.Value

Car la textBoxTexte se trouve dans un UserForm

Re,

Je me permets de répondre à ta place James!

@acymospc

Tu ne nous as pas dit exactement ce que ton bouton était censé faire.

James a donc pensé que tu souhaitais copier le contenu de ton TextBox dans une cellule précise d'un onglet précis!

Ce que fait très bien le bout de code :

Sheets("Annuaire").Range("Y2") = Me.TxtBxTexte.Value

Il récupère le contenu du textbox TxtBxTexte et le copie en cellule Y2 de l'onglet Annuaire (données fictives).

Bonjour James007, vba-new,

Super, Maintenant j'ai donc deux solutions

La prochaine fois je ferais plus attention dans mes explications.

Merci très sincèrement pour votre aide.