Décompter des heures

[Borismy]

Bonsoir à tous,
Je cherche une formule pour décompter des heures reportées manuellement dans la cellule A6 lorsque la cellule H6 contenant le résultat d'autres calculs d'heures passe en négatif, A6 doit donc décrémenter jusqu'à passer à zéro et ne plus bouger.
Est-ce possible?

Merci
Boris

 

[Excel-lent]

Re : Décompter des heures

Bonsoir Borismy,

Voici ci-dessous une macro à copier sur ta feuille puis à tester.

A6 a ajouter à ce compteur, mais a décompter de A6
dés que H6 passe en négatif

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' macro enregistré par Excel-lent
  
Dim TotalPériode As Integer
Dim ReportHeures As Integer

  
  If Target.Column = 1 And Target.Row = 6 Then
     ReportHeures = Range("A6")
     TotalPériode = Range("H6")
     Range("H6") = TotalPériode + ReportHeures
     
     If Range("H6") < 0 Then
        Range("A6") = ReportHeures + TotalPériode
     End If
  End If
End Sub

Bonne soirée

 

[Borismy]

Re : Décompter des heures

Bonsoir Excel-lent

ça me convient tout a fait.

Merci beaucoup.