Bonjour,

J'ai un programme que voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 4 Then
    'Ecris lheure actuelle dans la colonne D apres avoir scanner le START
        Cells(Target.Row, 4).Value = Time()
    End If
 
    If Target.Column = 5 Then
    'Ecris lheure actuelle dans la colonne E apres avoir scanner le END
        Cells(Target.Row, 5).Value = Time()
    End If
 
    If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    'Permet la soustraction des heures du debut et de fin
        Target.Offset(0, 1) = Format(Target.Offset(0, -1).Value - Target.Value, "hh:mm:ss")
    End If
    End Sub
Et je souhaiterai que quand il fait la soustraction des deux heures du début et de fin il m'affiche le résultat en heure (30 minutes = 0.5 heure)
Pouvez-vous m'aider svp ?