Discussion :

[clementlp]

Bonjour,

J'aimerais réussir à soustraire des quotas d'heure machine : par exemple mon opérateur relève le compteur d'heure au début de son poste à 10858h 30min 12sec et finit son poste avec un compteur à 10863h 45min 25sec. donc à partir de ces données je voudrais faire une soustraction pour avoir le temps de production de la machine, sauf que quand j'essaie de soustraire cela affiche #valeurs j'ai essayé avec un format de cellule [h]:mm:ss mais rien ne change.

merci encore pour vos réponses,

[clementlp]

bonjour,
je n'arrive pas à supprimer mais le problème est résolu !

[BENNASR]

bonjour
dans l’hypothèse ou :
- Heure de départ en colonne A format "10858h 30min 12sec"
- heure fin en colonne B et même format
mon code (du bricolage) fais les étapes suivantes :
1- copier les deux colonne A et B sur C et D pour conserver les données de départ
2- remplace sur les deux colonne C et D : (h) et (min) et (sec) par le symbole "|"
3- répartir sur 3 colonnes les heures de départ à savoir heure / minute / seconde
4- idem pour la colonne D (heures fin)
5-faire la soustraction des heures , des minutes et des secondes et les mentionner respectivement en colonne K, L, M
il est possible de supprimer toutes les colonnes inutiles par code et garder que le résultat
Tester avec prudence sur une copie de ton fichier pour munir contre tous risque de perte de données
ce n'est qu'une tentative d'aide dans l'espoir que ça te permet d'avancer :
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub test()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
 
    With Sheets("Feuil1")
     .Columns("A:B").Copy .Range("C1")
 
    .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row).Replace What:="h", Replacement:="|", LookAt:=xlPart
    .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row).Replace What:="min", Replacement:="|", LookAt:=xlPart
    .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row).Replace What:="sec", Replacement:="|", LookAt:=xlPart
    .Range("D2:D" & .Range("D" & Rows.Count).End(xlUp).Row).Replace What:="h", Replacement:="|", LookAt:=xlPart
    .Range("D2:D" & .Range("D" & Rows.Count).End(xlUp).Row).Replace What:="min", Replacement:="|", LookAt:=xlPart
    .Range("D2:D" & .Range("D" & Rows.Count).End(xlUp).Row).Replace What:="sec", Replacement:="|", LookAt:=xlPart
 
    For L = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
    .Cells(L, 3).TextToColumns Destination:=Range("E" & L), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
        .Cells(L, 4).TextToColumns Destination:=Range("H" & L), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    .Cells(L, "K") = .Cells(L, "H") - .Cells(L, "E")
    .Cells(L, "L") = .Cells(L, "I") - .Cells(L, "F")
    .Cells(L, "M") = .Cells(L, "J") - .Cells(L, "G")
 
    Next L
    End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
 
End Sub

clementlp.xlsm