Discussion :

[pite0611]

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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Remplace ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pite0611]

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 :

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
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