Double-cliquez sur la cellule pour renvoyer le contenu de la cellule dans une autre cellule (VBA)

Question

J'aimerais pouvoir double-cliquer sur une cellule et renvoyer la valeur/le texte de la cellule dans une autre cellule.

Mon code à ce jour est:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Intersect(Target, Range("E:P")) Is Nothing Then 
Else 
    ActiveCell.Copy Destination:=Sheets("Sheet1").Range("S13") 
End If 
End Sub 

Le problème avec ce code est que je veux le contenu des cellules réelles, pas nécessairement la valeur numérique. Par exemple, dans la cellule E12, j'ai le texte "Completed", mais quand je double-clique sur E12, un "0" est renvoyé dans la cellule S13 et non le texte "Completed".

Answer 1

Je suis d'accord avec A.S.H "votre cellule d'origine contient une formule".

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("E:P")) Is Nothing Then 
     If Target.Cells.Count = 1 then 
      Cancel = True 
      Sheets("Sheet1").Range("S13") = Target.Value 
     End If 
    End If 
End Sub 

Answer 2

Est-ce que cela fonctionne?

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("E:P")) Is Nothing Then 
     Cancel = True 
     Target.Copy Destination:=Sheets("Sheet1").Range("S13") 
    End If 
End Sub