Option Explicit
Dim Mem_Target As Range, Bloque_Selection As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Mem_Target Is Nothing Then Bloque_Selection = True
If Not Application.Intersect(Target, Range("a1:z10000")) Is Nothing Then
Cancel = True
MsgBox "C'est un double clic sur la cellule " & Target.Address, vbOKOnly + vbInformation
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Mem_Target Is Nothing Then...