Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = Format(Now, "hh:mm:ss")
End Sub
Bonne Soirée A+Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsEmpty(Target) Then
'Target = Time
Target = Format(Now, "hh:mm")
Cancel = True
End If
End Sub
En gros dans le tableau que je viens d'ajouter plus haut, je souhaite double cliker sur une cellule de la colonne entré et l'heure instantané s'affiche et pareil sur la colonne sortie?