Utilisation de l'évènement Worksheet_BeforeDoubleClick
Bonjour,
Je voudrais effectuer certaines actions au double click sur une cellule.
Mon code initial ne fonctionne pas du tout :
Code:
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:
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
Utilisation de l'évènement Worksheet_BeforeDoubleClick
il faut faire un click droit sur l'onglet de la feuille
visualiser le code
et insérer ton code à cet endroit.
bonne journée.
