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

tchi456

XLDnaute Occasionnel
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
 

Pièces jointes

  • Heures.xlsm
    226.6 KB · Affichages: 2

tchi456

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
4
Affichages
242

Statistiques des forums

Discussions
299 799
Messages
1 979 188
Membres
206 609
dernier inscrit
Shayzutarot