Microsoft 365 Copier le contenu d'une TextBox vers le Presse-Papier

GALOUGALOU

XLDnaute Accro

• 23 Janvier 2020

• #2

bonjour scorbeil bonjour le forum
le sujet a été abordé dans ce lien

Copier textbox dans presse papier

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...

www.excel-downloads.com

cordialement
galougalou

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2020

• #3

bonjour
si l'userform parent du textbox est actif (tu est dessus )
tu simplifie la demarche avec par exemple dans l'evenement change du textbox

VB:

Private Sub TextBox1_Change()
    With TextBox1
        x = .SelStart
        .SelStart = 0: .SelLength = Len(.Value)
        With CreateObject("wscript.shell"): .SendKeys ("^c"): End With
        DoEvents
        .SelStart = x 'Len(.Value)
    End With
End Sub

voila a chaque fois que tu va changer quelque chose dans ce textbox le presse papier aura la new valeur

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2020

• #4

re
en faisant une recherche j'ai moi meme apris aujourd'hui

le textbox est affublé d'une méthode "copy"donc sans transition j'opte pour la simplicité
donc la meme chose sans wscript.shell et sendkeys

VB:

Private Sub TextBox1_Change()
    With TextBox1
        x = .SelStart
        .SelStart = 0:  .SelLength = Len(.value)
        .Copy
        .SelStart = x
    End With
End Sub

voila c'est pareil même effet

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2020

• #5

Bonjour SCorbeil, GALOGALOU, patricktoulon,

Autre solution avec le clic droit dans la TextBox :

VB:

Private Sub TextBox1_MouseUp(ByVal Button%, ByVal Shift%, ByVal X!, ByVal Y!)
If Button = 2 Then With TextBox1: .SelStart = 0: .SelLength = Len(.Text): .Copy: End With
End Sub

A+

 

Vote positif 0 Vote négatif

S

SCorbeil

XLDnaute Nouveau

• 24 Janvier 2020

• #6

Bonjour à tous,

Grand merci à vous tous.

Je vais tester vos options.

À+

 

Vote positif 0 Vote négatif

S

SCorbeil

XLDnaute Nouveau

• 24 Janvier 2020

• #7

patricktoulon à dit:

re
en faisant une recherche j'ai moi meme apris aujourd'hui

le textbox est affublé d'une méthode "copy"donc sans transition j'opte pour la simplicité
donc la meme chose sans wscript.shell et sendkeys

VB:

Private Sub TextBox1_Change()
    With TextBox1
        x = .SelStart
        .SelStart = 0:  .SelLength = Len(.value)
        .Copy
        .SelStart = x
    End With
End Sub

voila c'est pareil même effet

Cliquez pour agrandir...

Bonjour patricktoulon,

Premièrement, merci pour ton suivi rapide.

Je vais tester sans hésitation.

Depuis le post, je me questionnais sur la possibilité de traiter le code à partir d'un commandButton "COPIER". Je crois que cela sera plus cognitif pour les utilisateurs.

La textBox porte comme intitulé "TxtCodeFEU".

Y'a t'il des changements dans le code initial?

Merci.

 

Vote positif 0 Vote négatif

S

SCorbeil

XLDnaute Nouveau

• 24 Janvier 2020

• #8

job75 à dit:

Bah remplacez TextBox1 par TxtCodeFEU.

Cliquez pour agrandir...

Absolument!

C'était afin de mieux documenter les "OBJECTS".

 

Vote positif 0 Vote négatif

S

SCorbeil

XLDnaute Nouveau

• 24 Janvier 2020

• #9

C'est testé et ça fonctionne nickel...

Merci à tous les collaborateurs.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2020

• #10

Bah j'ai supprimé mon post car vous voulez un bouton :

VB:

Private Sub CommandButton1_Click() 'bouton COPIER
With TxtCodeFEU: .SetFocus: .SelStart = 0: .SelLength = Len(.Text): .Copy: End With
End Sub

 

Vote positif 0 Vote négatif

S

SCorbeil

XLDnaute Nouveau

• 24 Janvier 2020

• #11

Merci Job75!

Voici le code qui a été utilisé et qui est fonctionnel.

VB:

Private Sub CmdCopier_Click()

With TxtCodeFEU
        .SelStart = 0:  .SelLength = .TextLength: .Copy
End With

MsgBox "Veuillez coller immédiatement le code interne pour le FEU dans votre onglet de l'application dessins."

End Sub

 

Vote positif 0 Vote négatif

Solution