XL 2010 VBA - Insérer date et heures+minutes actuelle par double clics

[tchi456]

Bonjour,

Bonne et heureuse année 2023!

J'ai ce code pour pouvoir insérer la date par double clics dans une cellule et je souhaiterais adapter ce code pour pouvoir y ajouter en plus l'heure+minutes actuelle en dessous de la date dans cette même cellule.

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect Password:="."
    If Not Intersect(Target, Range("K2")) Is Nothing Then
        Cancel = True
        If Target = "" Then
        Target.Formula = Date
        Else
        Target = ""
        End If
    End If
        ActiveSheet.Protect Password:="."
End Sub

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

 

[Efgé]

Bonjour @tchi456

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect Password:="."
    If Not Intersect(Target, Range("K2")) Is Nothing Then
        Cancel = True
        If Target = "" Then
        Target.Formula = Date & Chr(10) & Format(Time, "HH:MM")
        Else
        Target = ""
        End If
    End If
    ActiveSheet.Protect Password:="."
End Sub

Cordialement

 

[tchi456]

Bonjour Efgé,

Merci pour votre proposition qui fonctionne très bien. J'ai adapté votre code comme ceci:

Target.Formula = Date & Chr(10) & Format(Time, "HH") & "h" & Format(Time, "NN")

Meilleures salutations,

Thierry

 

[Modeste geedee]

Bonjour Efgé,

Merci pour votre proposition qui fonctionne très bien. J'ai adapté votre code comme ceci:

Target.Formula = Date & Chr(10) & Format(Time, "HH") & "h" & Format(Time, "NN")

Meilleures salutations,

Thierry

Et pourquoi pas :
Target= format(now,"dd mmm yyyy hh\hmm")

 

[Efgé]

Re
Bonjour @Modeste geedee

Et pourquoi pas :

Parce que

pour pouvoir y ajouter en plus l'heure+minutes actuelle en dessous de la date

En tout cas c'est comme ça que j'avais compris

Cordialement