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

tchi456 · 7 Janvier 2022

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:

VB:

 '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 · 7 Janvier 2022

Bonjour,
A tester

M12 · 7 Janvier 2022

Bonjour,
A tester

tchi456 · 7 Janvier 2022

Bonjour M12,

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

VB:

'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

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

tchi456

XLDnaute Occasionnel

Pièces jointes

M12

M12

XLDnaute Accro

Pièces jointes

tchi456

XLDnaute Occasionnel

Discussions similaires