Conversion minutes en heures [VBA]

Version imprimable

Bonjour,

J'ai un programme que voici :

Code:

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 ?

19/06/2018, 16h12
MemessC
Bonjour à toi,

Si j'ai bien compris tu veux juste au lieu de minute avoir les heures mais avec un format du genre 1h45min ou juste 1,75h ?

Si c'est juste 1,75h essaye ça :
Code:

1 2 Target.Offset(0, 1).Value = Target.Offset.Value / 60
A la fin de ton code après la soustraction

Sinon pour avoir un format 1h45min tu dois avoir un paramètre dans ta fonction Time()

Cdt
19/06/2018, 17h55
Menhir
Remplace ça :

Code:

Target.Offset(0, 1) = Format(Target.Offset(0, -1).Value - Target.Value, "hh:mm:ss")

Par ça :
Code:

1 2 Target.Offset(0, 1).Value = Target.Offset(0, -1).Value - Target.Value Target.Offset(0, 1).NumberFormat = "[mm]"
Non seulement ça te permettra d'obtenir le résultat souhaité mais au moins tu garderas une donnée numérique que tu pourras éventuellement traiter.

Bonjour,
J'ai résolu mon problème autrement et cela fait ce que je demande et empêche le crash de excel
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 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
        Application.EnableEvents = False
        Target.Value = Time()
        Target.NumberFormat = "hh:mm:ss"
        Application.EnableEvents = True
    End If
 
    If Target.Column = 5 Then
        'Ecris lheure actuelle dans la colonne E apres avoir scanner le END
        Application.EnableEvents = False
        Target.Value = Time()
        Target.NumberFormat = "hh:mm:ss"
        Target.Offset(0, 1) = 24 * (Target.Value - Target.Offset(0, -1).Value)
        Target.Offset(0, 1).NumberFormat = "0.00"
        Application.EnableEvents = True
    End If
 
End Sub