Copier coller un peut special

[maval]

Bonjour

Voila j'ai environ 500 copier coller à faire de certaine feuilles Word, Excel ect.. vers des textbox d'un userform

J'aimerai si possible copier avec raccourci Ctrl/C jusque la pas de problème et au lieu de faire Ctrl/V cliquer dans le textbox concerner et a l'aide d'un bouton coller

Je joint un fichier exemple

Je vous remercie d'avance

 

[Dranreb]

Re : Copier coller un peut special

Bonjour.
En mettant la propriété ShowModal de l'Userform à False, il est même possible de faire ça :

Option Explicit
Dim WithEvents Excel As Application

Private Sub UserForm_Initialize()
Set Excel = Application
Me.TextBox1.Text = CStr(Selection(1, 1).Value)
End Sub

Private Sub Excel_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Me.TextBox1.Text = CStr(Target(1, 1).Value)
End Sub

P.S. Mais je vois que ça ne répond pas avec votre question. je vais ajouter de quoi coller le contenu du presse papier.
À +

Voila qui est fait. Ajoutez derrière :

Private Sub CommandButton1_Click()
Me.TextBox1.Text = PressePapier
End Sub

Property Get PressePapier() As String
Dim DOb As New DataObject
On Error Resume Next
DOb.GetFromClipboard: PressePapier = DOb.GetText
If Err Then MsgBox "Pas de données récupérées", vbCritical, "PressePapier"
End Property
Property Let PressePapier(Z As String)
Dim DOb As New DataObject
DOb.SetText Z: DOb.PutInClipboard
End Property

 

[maval]

Re : Copier coller un peut special

Re Dranreb

Vraiment nickel seul petit souci est-il possible de diriger la fonction coller dans le textbox du choix de l'utilisateur
ex: si je veut coller sur le textbox 29 je clique a l'intérieur et avec mon Bouton je colle....

Merci beaucoup et bonne soirée

 

[Dranreb]

Re : Copier coller un peut special

Vois pas trop comment faire. À part peut être… Oui, si ça à l'air de marcher: mettre la propriété TakeFocusOnClick de CommandButton1 à False et:

Private Sub CommandButton1_Click()
Application.SendKeys "^V"
End Sub

Mais à ce compte là, personnellement, j'aime autant faire ce Ctrl+V moi même !

 

[maval]

Re : Copier coller un peut special

Re

Je te remercie beaucoup Nickel

Bonne soirée