Bonjour,
Dans certaines cellules je peux insérer l'heure actuelle par double clics avec le code ci-dessous et je souhaiterai avoir un code similaire pour pouvoir insérer une heure spécifique dans les colonnes J, L, N et P par triple clics.
Est-ce que c'est réalisable?
Meilleures salutations,
Thierry
Dans certaines cellules je peux insérer l'heure actuelle par double clics avec le code ci-dessous et je souhaiterai avoir un code similaire pour pouvoir insérer une heure spécifique dans les colonnes J, L, N et P par triple clics.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect Password:="."
'Pour insérer l'heure par double clics dans les colonnes J, L, N et P
If Not Intersect(Target, Range("J:J , L:L , N:N , P:P")) Is Nothing And Target.Row > 1 Then
Cancel = True
If Target = "" Then
Target = Format(Now, "hh:mm")
Else
Target = ""
End If
End If
ActiveSheet.Protect Password:="."
End SubEst-ce que c'est réalisable?
Meilleures salutations,
Thierry