Salut Merlin !
Vite fait en passant :
1 - Une macro évènementielle :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Application.Intersect(Target, Range("C7:C14")) Is Nothing Then
If Target.Value = "" Then
Target.Value = "X"
Call MettreHeure
Else
Target.Value = ""
Call EffacerHeure
End If
Cancel = True
End If
End Sub
2 - Macro qui affiche l'heure et la fige :
Sub MettreHeure()
ActiveCell.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
3 - Une macro qui éfface le tout :
Sub EffacerHeure()
ActiveCell.Offset(0, -1).Select
Selection.ClearContents
End Sub
Voilà tout simplement !
En fait tu peux le faire sans afficher les croix !
Ces macros sont très simples et tu peux, par conséquent les modifier à volonté !
Teste le fichier joint .
Bonne fin de nuit et bonne journée qui approche...héhé...!!!
@ +
Moa