XL 2010 Insérer date et heure par un double clics

[tchi456]

Bonjour,

J'ai un fichier qui comporte deux boutons pour pouvoir insérer la date et l'heure actuelle dans des cellules mais j'aimerai plutôt passer par un double clics et supprimer ces boutons.
La date se trouve dans la colonne A et les heures dans les colonnes H, J, L et N.

Le code actuel pour les boutons est celui-ci:

 'Pour insérer la date du jour dans la cellule sélectionnée:
 
Sub InsertDate()
    ActiveSheet.Unprotect Password:="."
    ActiveCell = Date
    ActiveSheet.Protect Password:="."
End Sub

 'Pour insérer l'heure actuelle dans la cellule sélectionnée:
 
Sub InsertHeure()
    ActiveSheet.Unprotect Password:="."
    With ActiveCell
    .NumberFormat = "HH:MM"
    .Value = Time
    End With
    ActiveSheet.Protect Password:="."
End Sub

Avez-vous une astuce qui pourrait m'aider?

Mes meilleures salutations,

Thierry

 

[M12]

Bonjour,
A tester

 

[tchi456]

Bonjour M12,

J'ai modifié un peu votre code pour pouvoir y arriver:

'Pour insérer la date et l'heure par double clics

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect Password:="."
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
        If Not Intersect(Target, Range("H:H , J:J , L:L , N:N")) Is Nothing Then
        Cancel = True
        Target = Format(Now, "hh:mm")
    End If
        ActiveSheet.Protect Password:="."
End Sub

Merci pour votre aide et meilleures salutations,

Thierry