Bonjour,

Je voudrais effectuer certaines actions au double click sur une cellule.

Mon code initial ne fonctionne pas du tout :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
 
With wksAffaire
.Select
    If Target.Address = .Range("HIDE").Address Then
        .Range("H:M").EntireColumn.Hidden = True
    End If
 
    If Target.Address = .Range("UNHIDE").Address Then
        .Range("H:M").EntireColumn.Hidden = False
    End If
End With
Application.EnableEvents = True
End Sub

Donc je suis repartie avec le code de base suivant (qui ne fonctionne pas plus):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  MsgBox "Vous avez double cliqué sur la cellule " & Target.Address
  Cancel = True
 
End Sub
Je ne sais pas si j'ai inseré le code au bon endroit, il n'est pas dans un module mais directement dans la feuille de mon workbook.

Est ce que vous pourriez m'indiquer mon erreur ? (Il ne se passe rien au double click).


Merci d'avance,
Alicia