Soustraction heures minutes avec heures à 5 chiffres

[Jojo54400]

Bonjour à tous et un grand bravo au passage pour votre site qui est rapidement devenu ma sainte bible 😛 !

J'ai un soucis pour un calcul pas trés courant:
Je dois soustraire deux cellules temps entre elles, mais, je ne sais pas sous quel format je dois mettre ces cellules car les temps inscris sont du genre 19352:40 (19352h 40min).
Deux questions me hantent jours et nuits: Quel format et quel macro utiliser pour les soustraires entre elles 😕
En vous remerciant d'avance. Bonne journée à tous!

Jojo.

 

[Denis]

Re : Soustraction heures minutes avec heures à 5 chiffres

Bonjour Jojo et le forum,
Ci-joint un exemple de marche à suivre.
La méthode est décomposée pour comprendre le principe.
Il y a surement plus court !!
Bon courage et à +
Denis

 

[filiph79]

Re : Soustraction heures minutes avec heures à 5 chiffres

bjr

pour raccourcir un peu les calculs de l'exemple de denis, il est possible pour convertir le résultat en heure de faire :

I8*"01:00:00"

Appliquer le format heure :[h]:mm:ss;@ (qui correspond au format 37:30:55 dans la liste des formats de la boite de dialogue format)
A+

 

[JCGL]

Re : Soustraction heures minutes avec heures à 5 chiffres

Bonjour à tous,
Bienvenue sur XLD à Jojo,
Salut Denis,
Salut Philippe,

Jojo : ton format Heure est un format reconnu par XL. Les soustractions devraient être possible.

Merci de déposer un fichier significatif pour une tentative d'aide optimisée.

A+ à tous

 

[eriiic]

Re : Soustraction heures minutes avec heures à 5 chiffres

Bonjour,

Effectivement une saisie hhhhh:mm est convertie en texte par excel...

Une proposition de fonction personnalisée :

Function diffGH(h1 As String, h2 As String) As String
    ' h1 et h2 heure sous la forme hhhhh:mm
    ' diffGH retourne h1-h2
    Dim h3 As Double, h4 As Double, tmp As Double
    h3 = Split(h1, ":")(0) + Split(h1, ":")(1) / 60
    h4 = Split(h2, ":")(0) + Split(h2, ":")(1) / 60
    diffGH = IIf(Sgn(h3 - h4) = -1, "-", "")
    If diffGH = "-" Then
        tmp = h3: h3 = h4: h4 = tmp
    End If
    diffGH = diffGH & Abs(Int(h3 - h4)) & ":" & Round((h3 - h4 - Int(h3 - h4)) * 60, 0)
End Function

Il faut que les heures transmises soient sous forme de chaine.
On pourrait l'améliorer pour qu'elle accepte les 2 formats (chaine et heure) mais en as-tu besoin ?

eric

 

[Jojo54400]

Re : Soustraction heures minutes avec heures à 5 chiffres

Merci à tous pour votre accueil et vos réponses.
J’ai besoin de cette macro pour calculer un temps d’usinage de pièce, ce temps m’est donné par ma machine comme un temps ininterrompu (il se cumule à chaque usinage de pièce) Je vous mets ledit fichier tel que je l’utilise avec dans la colonne en rouge, se que je souhaiterai avoir concrètement comme résultat.
Eriiiic, étant débutant je ne connais pas la différence entre le format chaine et heure désolé…
Encore merci.

 

[eriiic]

Re : Soustraction heures minutes avec heures à 5 chiffres

Re,

J'ai l'impression que tu as décalé d'ne colonne dans tes formules écrites en texte....

j'ai ajouté la fonction personnalisée dans ton fichier, regarde si ça te va.
Pour voir le code vba : Alt+F11 et double-cliquer sur 'module1'

En H3 tu saisis :
=diffGH(F4;F3)
et tu obtiens F4-F3.

J'ai enlevé le centrage des cellules que tu vois la différence entre texte et valeur numérique.
Les textes sont alignés à gauche, les numériques à droite.

eric

 

[Jojo54400]

Re : Soustraction heures minutes avec heures à 5 chiffres

Merci Eriiiic et au autres, sa marche du tonnerre!

A plus!

Jojo