Compter dans une cellule

[francky]

Bonjour a tous,

je ne suis pas trés expert en VB et je vous explique mon problème.
J'ai une cellule qui passe d'une valeur 1 ou 0 et je voudrais savoir la date et l'heure a laquelle la valeur passe a 1 et si possible faire un compte d'heure total a laquelle a valeur est restée.
Merçi pour vôtre aide

 

[dg62]

Bonjour Francky


en A1 ta valeur

en B1 l'heure de passage à 1
en C1 la durée à l'état 1

B1 et C1 au format heure

Option Explicit
Public flag As Boolean


Private Sub Worksheet_Change(ByVal Target As Range)


    If Range('A1').Value = 1 Then
        flag = True
        Range('B1').Value = Time()
    End If

    If flag = True And Range('A1').Value = 0 Then
    Range('c1').Value = Time() - Range('b1').Value
    flag = False
    End If
    

End Sub

Message édité par: dg62, à: 27/11/2005 13:20

 

[francky]

merçi DG62 pour ta réponse trés sympas