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):
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.
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
Est ce que vous pourriez m'indiquer mon erreur ? (Il ne se passe rien au double click).
Merci d'avance,
Alicia
Partager