Clic pour couper et double clic pour coller

Bonjour à tous,

J'aimerais effectuer sur une feuille "implantation" une action en particulier.

J'aimerais que lorsque je fais un clic gauche dans la feuille, si la cellule se trouve entre "B6:P15" ou "U3:AC16" que la cellule soit "coupée"

Et lorsque je clique dans une cellule de "B6:P15" ou "B24:P33" que la cellule soit collée (le principe du ctrl+x et ctrl+v).

Je pense qu'il faut faire un worksheet_click ou un truc du genre.

Je remercie toute personne qui pourra m'aider.

Cordilement


Correction : doubleclic pour coller la cellule qui a été coupée pas un simple clic.

Merci

Bonjour à mettre dans la feuille ou tu veux que cela soit actif :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Union(Range("B6:P15"), Range("U3:AC16"))) Is Nothing Then
    Target.Cut
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Union(Range("B6:P15"), Range("B24:P33 "))) Is Nothing Then
    Target.Select
    ActiveSheet.Paste
End If
End Sub

Cordialement

Bonjour bigdaddy,

Merci ça marche nickel, merci pour ton code.

Sujet résolu

Cordialement

Rechercher des sujets similaires à "clic couper double coller"