cliquer pour donner l'heure

[a10]

bonjour,

je voudrai cliquer sur un bouton pour me donner l'heure du début et cliquer sur le bouton de droite pour me donner l'heure de fin

 

[a10]

Re : cliquer pour donner l'heure

Bonjour,

j'ai trouvé cette macro ci-dessous:

comment copier les données les uns en dessous des autres?
=========================================================================
Sub debut_fin()
Range("r2") = Time


'cpt = Range("b4")
Dim d4 As Long

Range("q2:r2").Select
Selection.Copy

Range("d5").Offset(d50, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False




End Sub

=============================================================================================

 

[JCGL]

Re : cliquer pour donner l'heure

Bonjour à tous,

Un essai très simple avec :

Option Explicit

Sub Heure_1()
Cells(3, 4) = Format(Time, "hh:mm")
End Sub

Sub Heure_2()
Cells(3, 6) = Format(Time, "hh:mm")
End Sub

Sub Heure_3()
Cells(4, 4) = Format(Time, "hh:mm")
End Sub

Sub Heure_4()
Cells(4, 6) = Format(Time, "hh:mm")
End Sub

A+ à tous

 

[phlaurent55]

Re : cliquer pour donner l'heure

Bonjour à tous,
Salut Jean-Claude

je ne vais pas joindre mon fichier (identique à celui de J-C)

........... une petite réflexion, il vaudrait mieux faire cela par une évènementielle (dbl-clic ou right-clic)
ça permettrait d'éviter à la feuille d'être atteinte par la varicelle 😉

à+
Philippe

 

[phlaurent55]

Re : cliquer pour donner l'heure

Re,

voici

à+
Philippe

 

[a10]

Re : cliquer pour donner l'heure

Merci,

phlaurent55, c'est une solution interessante.

a+

bonne soirée