Microsoft 365 Macro, dates et heures courantes

[laplayast]

Bonjour,
j'ai créer 2 macros entrée et sortie correspondant à des dates et heures; comment les utiliser sur n'importe quelles cellules. Voir fichier joint

Merci pour l'aide.

 

[Eric KERGRESSE]

Bonjour,

Avec un clic droit.

 

[laplayast]

Bonjour,
Merci pour votre aide, cela fonctionne parfaitement; par contre j'aurai besoin de quelques ajustements. Voir fichier joint.
Merci , pour votre attention.

 

[Eric KERGRESSE]

Remplacez le code actuel par celui-ci :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

     If Target.Count > 1 Then Exit Sub
     
     If Not Intersect(Target, Columns("G")) Is Nothing And Target.Interior.Color = RGB(217, 217, 217) Then
        Target = Date
        Target.Offset(0, 1) = Format(Now(), "hh:mm:ss")
     End If
     
     If Not Intersect(Target, Columns("J")) Is Nothing And Target.Interior.Color = RGB(217, 217, 217) Then
        Target = Date
        Target.Offset(0, 2) = Format(Now(), "hh:mm:ss")
     End If
     
     Cancel = True

End Sub

 

[laplayast]

Bonjour,
Parfait, et merci.