Heure à bloquer

[merlin]

Bonjour à TOUS !!!!

Je n'arrive pas à faire un truc ... j'ai beau triturer la formule dans tous les sens ... RIEN n'y fait ! Je suis désespéré ... :

Cf. fichier ci-joint.

Ce que j'essaie de faire c'est qu'après la validation d'une cellule bien précise ... cela affiche dans une autre cellule ... l'heure ... en se basant sur l'horloge de WINDOWS. La difficulté réside dans le fait que cela ne la bloque pas ! CAR lorsque je procède à d'autres validations dans d'autres cellules .... les formules sont irrémédiablement recalculées.


J'ai vraiment besoin de votre AIDE !!!!

Merlin qui compte sur VOUS.

Merci par avance.

 

[Moa]

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

 

[Jean-Marie]

Bonsoir

Il y a aussi cette possibilité Lien supprimé

@+Jean-Marie