XL 2016 VBA - Problème avec le coper-coller

vgendron

XLDnaute Barbatruc

• 12 Août 2021

• #2

Bonjour

à priori.. si je copie colle le "code" tel que tu l'as posté.. que ce soit en début ou fin de journée.. ca ne fonctionnera pas..

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Août 2021

• #3

vgendron à dit:

Bonjour

à priori.. si je copie colle le "code" tel que tu l'as posté.. que ce soit en début ou fin de journée.. ca ne fonctionnera pas..

Cliquez pour agrandir...

Bonjour,

Merci de répondre. Par exemple, sur double-clic :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim obj As New DataObject
  Dim txt As String
  Cancel = True
  obj.SetText Target.Value
  obj.PutInClipboard
End Sub

Avec la référence Microsft Forms cochée.

Daniel

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 12 Août 2021

• #4

Salut,
Je sais pas trop ce que tu souhaite faire, mais j'ai pas de soucis avec ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim obj As DataObject
Dim txt As String
Set obj = New DataObject
Cancel = True
obj.SetText Target.Value
obj.PutInClipboard

End Sub

Cliquez pour agrandir...

Si c'est juste copier coller des valeurs, pourquoi passer par un dataobject au lieu d'utiliser directement le presse papier avec un target.copy ou target.value.copy ?
A +

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Août 2021

• #5

Wayki à dit:

Salut,
Je sais pas trop ce que tu souhaite faire, mais j'ai pas de soucis avec ce code :

Si c'est juste copier coller des valeurs, pourquoi passer par un dataobject au lieu d'utiliser directement le presse papier avec un target.copy ou target.value.copy ?
A +

Cliquez pour agrandir...

Bonjour Wayki,

Le problème est justement que ça fonctionne... jusqu'au moment où ça ne fonctionne plus. Le collage donne alors :



Sinon, j'utilise ce code parce que le collage se fait dans un autre logiciel.

Daniel

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 12 Août 2021

• #6

Le problème est aléatoire ou il intervient toujours sur le copiage (ou collage) du même élément ?
Difficile de te solutionner sans plus d'infos.
Tu veux pas essayer avec Target.copy ?
A +

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Août 2021

• #7

Ca ne fonctionne pas avec Target.copy : ça m'ajoute parfois des guillemets (par exemple une adress mail collée dans une page web).

Daniel

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 12 Août 2021

• #8

Target.Value.copy ?
Il ne prendra que la valeur de la cellule sans les hyperlinks.
A +

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Août 2021

• #9

J'aurais dit comme toi... As-tu essayé ?

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 12 Août 2021

• #10

J'avoue je sèche, à pars supprimer au préalable tes mises en formes ou copy pastespecial au préalable dans une cellule puis re copier cette cellule et la supprimer (ça fait beaucoup de manip...), mes connaissances en vba s'arrêtent là...
A +

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Août 2021

• #11

J'ai une routine pour vider le presse-papiers par VBA. Je vais l'installer, mais j'attends que mon code déraille pour voir la différence.
Merci pour avoir cherché. Si ça fonctionne, je posterai la solution.

Daniel

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Août 2021

• #12

Bonsoir.
Des réponses ont été données ici.

XL 2016 - VBA - Anomalie avec le presse-papiers

Bonjour, J'ai ce code qui fonctionne en début de journée pour copier le contenu d'une cellule dans le presse-papiers : Dim obj As New DataObject Dim txt As String obj.SetText Target.Value obj.PutInClipboard Il n'y a pas d'erreur mais au lieu de la valeur de la cellule, le coller...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Août 2021

• #13

Bonjour @Dranreb

Je ne sais pas comment ce fil a pu se dupliquer. Je n'ai reçu aucune alerte en ce qui concerne ce fil fantôme.

Je te remercie et je vai répondr dans l'autre fil.

 

Vote positif 0 Vote négatif