XL 2016 VBA - Anomalie avec le presse-papiers

Dudu2 à dit:

@patricktoulon,
Je n'arrive pas à reproduire ton cas de ??.

Si ça va trop vite pour avoir le temps de charger le texte peut-être:

VB:

Sub b2(Target As Range)
    Dim DataObject As New MSForms.DataObject
 
    With DataObject
        .SetText CStr(Target.Value)
        .PutInClipBoard
     
        Do While Application.ClipboardFormats(1) <> 0
            DoEvents
        Loop
    End With
 
    Set DataObject = Nothing
End Sub

De toutes façons, si je peux comprendre des circonstances particulières décrites par @Dranreb, je ne comprends pas le plantage systématique de @danielco. Certes on ne sait pas ce qu'il y a avant dans son code, mais ça ne rentre manisfestement pas dans le cadre de ces circonstances particulières.
Et pour lui, il y a un problème structurel à la base.

Cliquez pour agrandir...

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

patricktoulon à dit:

re
Bonjour a tous
je serais curieux de savoir ce qui tourne en arrière plan dans ton Pc

Cliquez pour agrandir...

Dudu2 à dit:

En fait on ne sait pas bien quand ce phénomène aléatoire de retour "??" se produit.
- Après un reboot du PC, immédiatement ou après un "certain" temps ?
- Après fermeture puis ré-ouverture du classeur, voire d'Excel, immédiatement ou après un "certain" temps ?

Cliquez pour agrandir...

Dudu2 à dit:

Et en passant le DataObject en Static (Ou le sortir de la fonction) ? Pour éviter les multiples instanciations.

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Static obj As MSForms.DataObject
 
  If obj Is Nothing Then Set obj = New MSForms.DataObject
 
  Cancel = True
  If Target.Column = 2 Or Target.Column = 3 Then
    obj.SetText CStr(Target.Value)
    obj.PutInClipboard
  End If
End Sub

Et encore une fois je préfère un CStr(Target.Value) qui va passer quoiqu'il arrive un String au SetText.
Je ne sais pas trop comment le SetText réagit quand on lui passe directement un VarType = 0 (vbEmpty) d'une cellule vide. Et si c'est un VarType = 10 (vbError) d'une cellule en erreur, c'est sûr ça plante.

Cliquez pour agrandir...

patricktoulon à dit:

re
parmi les vieilleries que j'utilisais déjà en vbs ,il y a des décennies et qui surtout fonctionnent encore même sur W 10
adapté en VBA
pour écrire dans le clipboard

VB:

Sub test()
    PuInClipBoard "je te met des trucs la dedans moi  et va y que je te bourre le clip à mort"
    [A1].Select
    ActiveSheet.Paste
End Sub
Function PuInClipBoard(texte)
    CreateObject("WScript.Shell").Run "cmd.exe /C echo """ & texte & """| clip", 0, True
End Function

Cliquez pour agrandir...

patricktoulon à dit:

re
parmi les vieilleries que j'utilisais déjà en vbs ,il y a des décennies et qui surtout fonctionnent encore même sur W 10
adapté en VBA
pour écrire dans le clipboard

VB:

Sub test()
    PuInClipBoard "je te met des trucs la dedans moi  et va y que je te bourre le clip à mort"
    [A1].Select
    ActiveSheet.Paste
End Sub
Function PuInClipBoard(texte)
    CreateObject("WScript.Shell").Run "cmd.exe /C echo """ & texte & """| clip", 0, True
End Function

Cliquez pour agrandir...

Dudu2 à dit:

Et en passant le DataObject en Static (Ou le sortir de la fonction) ? Pour éviter les multiples instanciations.

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Static obj As MSForms.DataObject
 
  If obj Is Nothing Then Set obj = New MSForms.DataObject
 
  Cancel = True
  If Target.Column = 2 Or Target.Column = 3 Then
    obj.SetText CStr(Target.Value)
    obj.PutInClipboard
  End If
End Sub

Et encore une fois je préfère un CStr(Target.Value) qui va passer quoiqu'il arrive un String au SetText.
Je ne sais pas trop comment le SetText réagit quand on lui passe directement un VarType = 0 (vbEmpty) d'une cellule vide. Et si c'est un VarType = 10 (vbError) d'une cellule en erreur, c'est sûr ça plante.

Cliquez pour agrandir...

patricktoulon à dit:

re
mon pauvre danielco il est temps de prendre une décision
tu a 3 autre méthodes

Cliquez pour agrandir...