Heure instant T

Bonjour le forum,

je cherche une formule qui me donne l'heure (instant T) en A1 si A2 est >0

Je dis Instant T car une fois inscrite cette formule, je ne veux plus qu'elle change (d'heure) en cas de ré ouverture du fichier à une heure différente.

J'espère que vous m'avez compris...

merci à vous

Bonsoir,

regarde ce lien si çà te va !

https://www.excel-pratique.com/~files/doc/heure.xls

amicalement

Claude.

oui c'est très bien, mais comment intégrer ceci dans une formule avec conditions?

Merci

Bonsoir,

il y a deux possibilités pour que ta valeur change en A2 : tu la changes manuellement, ou la valeur est le résultat d'une formule!!!!!

si tu la changes manuellement, rentre ce code dans le code de la feuille (clic droit sur le nom de l'onglet, Visualiser le code)

Private Sub Worksheet_Calculate()
If [A1] <> "" Then Exit Sub
If [A2] > 0 Then [A1] = Format(Now, "h:mm")
End Sub

si la valeur est le résultat d'une formule, rentre ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] <> "" Then Exit Sub
If Target.Address = "$A$2" And Target > 0 Then [A1] = Format(Now, "h:mm")
End Sub

L'heure ne changera plus, même si la valeur repasse sous 0, la première condition vérifiant que la cellule A1 est vide.

si elle est vide, et que la valeur de A2 est supérieure à 0, l'heure est inscrite, sinon, on sort de la procédure

Edit : il faut inverser les deux codes (formule ou manuel)

en fait je veux que A1 inscrive l'heure si A2 est plus grand que 0...

la référence n'est pas toujours A1 cela change dans le tableur en fait comme une formule de calcul sauf que là je voudrai l'heure.

voici le fichier et la condition :

si [début doseur] est plus grand que 0 je veux l'heure dans [HCHT]

https://www.excel-pratique.com/~files/doc/IW5g0Classeur11.xls

merci pour votre aide

re,

une formule resteras une formule, et ton heure ne sera pas figée !

il n'y a qu'une macro pour faire ce que tu veux.

Claude.

c'est bien ce qui me semblait...car je n'y arrive pas!

Tu peux essayer de t'inspirer de cette formule.

=IF($A1="";"";IF(A2<>"";A2;TODAY()))

Je l'ai trouvé à quelque part sur ce site. Ça s'approche de ce que tu cherches.

je n'arrive pas à l'adapter...merci quand même

re,

en français

=SI($A1="";"";SI(A2<>"";A2;AUJOURDHUI()))

mais çà reste une formule!

Claude.

Les formules, c'est bien!

Le code, c'est mal!

héhéhé

Re-bonsoir,

fais un clic droit sur le nom de l'onglet, et colle ce code dans la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And (Target.Row + 1) Mod 4 = 0 Then _
    Cells(Target.Row, 1) = Format(Now, "h:mm")
End Sub