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

tchi456 · 3 Janvier 2023

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.

VB:

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é · 3 Janvier 2023

Bonjour @tchi456

VB:

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

Efgé · 3 Janvier 2023

Bonjour @tchi456

VB:

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 · 3 Janvier 2023

Bonjour Efgé,

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

VB:

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

Meilleures salutations,

Thierry

Modeste geedee · 3 Janvier 2023

tchi456 à dit:
Bonjour Efgé,

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

VB:

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é · 3 Janvier 2023

Re
Bonjour @Modeste geedee

Modeste geedee à dit:
Et pourquoi pas :

Parce que

tchi456 à dit:
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

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

tchi456

XLDnaute Occasionnel

Efgé

Efgé

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires