Double clic pour copier et idem pour coller ?

[BAT]

Bonjour à tout le forum,

J'essaye de trouver un code qui dans une feuille va me permettre de double cliquer sur une case pour la copier et double cliquer sur une autre case pour en coller le contenu par un collage spéciale "Valeur"

Ce que je trouve sur le forum ne concerne que les simple clic et non les doubles.

Auriez-vous une soluce toute faite pour moi dans vos mémory ?

Merci à tous par avance de vos réponses.

 

[BOISGONTIER]

Re : Double clic pour copier et idem pour coller ?

Bonjour,

Dim témoin
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If témoin Then
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    témoin = False
  Else
    Target.Copy
    témoin = True
  End If
  Cancel = True
End Sub

JB
Formation Excel VBA JB

 

[BAT]

Re : Double clic pour copier et idem pour coller ?

Wouaou !


Bonjour BOISGONTIER et merci beaucoup pour cette réponse parfaite et très rapide !

Bonne soirée à tous !

 

[BAT]

Re : Double clic pour copier et idem pour coller ?

Re bonjour,

Je m'aperçoit que ce code est trop contraignant par rapport à mon besoin et je souhaite savoir comment il faudrait le modifier pour que la zone où le double clic serait actif pour le copier / coller soit limité à la zone Q10 à Q10.

Merci pour votre coup de pouce.

 

[PascalXLD]

Re : Double clic pour copier et idem pour coller ?

Bonjour

essaies en modifiant ainsi

Dim témoin
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("Q10:R10")) Is Nothing Then Exit Sub
  If témoin Then
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    témoin = False
  Else
    Target.Copy
    témoin = True
  End If
  Cancel = True
End Sub

 

[job75]

Re : Double clic pour copier et idem pour coller ?

Bonjour,

En l'absence de Boisgontier, ajouter en 3ème ligne :

If Intersect(Target, Range("Q1:Q10") Is Nothing Then Exit Sub

A+

Edit : bonjour Pascal, pas rafraichi à temps

 

[BAT]

Re : Double clic pour copier et idem pour coller ?

OUps !!!!! Je me suis mal exprimé ! 😱

En fait le copier par double clic peux avoir lieu en Q10;Q39.
Mais le coller peux lui avoir lieu partout ailleur dans la feuille (idélament uniquement sur la zone J10 à P39 mais si c'est trop compliqué ce n'est pas grave).

Excuser moi pour cette erreur. Merci pour vos réponses pascal et job.

 

[job75]

Re : Double clic pour copier et idem pour coller ?

Re

Dim témoin
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If témoin Then
  If Intersect(Target, Range("J10:P39")) Is Nothing Then Exit Sub
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    témoin = False
  Else
  If Intersect(Target, Range("Q10:Q39")) Is Nothing Then Exit Sub
    Target.Copy
    témoin = True
  End If
  Cancel = True
End Sub

A+

Edit :

double clic peux avoir lieu en Q10;Q39

j'ai supposé Q10:Q39

 

[BAT]

Re : Double clic pour copier et idem pour coller ?

TOP !!!


Merci beaucoup beaucoup beaucoup 😀

 

[job75]

Re : Double clic pour copier et idem pour coller ?

Re
Utiliser plutôt ce code qui annule l'opération copier si le coller se fait en dehors de la zone autorisée :

Dim témoin
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If témoin Then
    If Not Intersect(Target, Range("J10:P39")) Is Nothing Then
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
    End If
    Application.CutCopyMode = False
    témoin = False
  Else
    If Intersect(Target, Range("Q10:Q39")) Is Nothing Then Exit Sub
    Target.Copy
    témoin = True
  End If
  Cancel = True
End Sub

A+