Differences heure minute seconde

Bonjour EXCEL PRATIQUE

Svp si vous pouvez m'aider a finir ce fichier

Dans TextBox1 je tape premier temps

Dans TextBox2 je tape second temps

La differences entre ces deux temps s'affiche dans TextBox3,TextBox4,TextBox5 ( Heures,Minutes,Secondes)

Merci beaucoup d'avance pour l'aide

Cordialement

MARTI

Bonjour,

Tu pourrais faire l'effort d'être un peu plus précis et donner quelques exemples !

Temps ? = Heure seulement ou = Date + Heure ?

Dans la même journée ou non ? (soit est-ce qu'on peut passer minuit d'un temps à l'autre ou jamais).

Et des exemples de ce que tu vas saisir, sous la forme où tu vas saisir, ne sont pas inutiles !

Cordialement.

Bonjour MFerrand

Mes excuses.. Sincèrement je suis desole.. J'etais pas clair dans ce sujet

Par exemple dans TextBox1 je tape la date et l'heure (25-11-2016 15:29:45)

Je tape dans TextBox2 la date et l'heure (27-11-2016 17:30:20)

Mais oui vous avez bien raison il faut ajouter un TextBox6 pour le nombre du jours

Peut etre vous avez une idee mieu que la mienne

Cordialement

MARTI

Voilà pour commencer à meubler ton module Userform :

Dim d1 As Date, d2 As Date

Sub EcartTemps()
    Dim d, j%
    If d1 > 0 And d2 > 0 Then
        d = d2 - d1: j = Int(d)
        TextBox3.Value = Hour(d) + j * 24
        TextBox4.Value = Minute(d)
        TextBox5.Value = Second(d)
    Else
        For j = 3 To 5
            Controls("TextBox" & j).Value = ""
        Next j
    End If
End Sub

Private Sub TextBox1_AfterUpdate()
    On Error Resume Next
    d1 = CDate(TextBox1.Value)
    If Err.Number <> 0 Then TextBox1.Value = "": d1 = 0
    EcartTemps
End Sub

Private Sub TextBox2_AfterUpdate()
    On Error Resume Next
    d2 = CDate(TextBox2.Value)
    If Err.Number <> 0 Then TextBox2.Value = "": d2 = 0
    EcartTemps
End Sub

Si tu rajoutes une TextBox jour, tu adapteras (tu croyais pas que j'allais tout faire ! ) : pour l'instant les jours sont convertis en heures.

Et tu as de la marge pour améliorer...

Cordialement.

Bonsoir MFerrand

Bravo .. vraiment bravo pour ce magnifique code

Je vous remercie beaucoup .. oui je vais chercher pour convertir ces heures au jours .. je devise par 24 mais qu'est ce que je vais faire avec le reste de ces heures par exemple 53 heure par 24 = 2 jours reste 5 heures !!??? usine de dynamite qui vas eclater dans ma tete

Merci une deuxieme fois

Amicalement

MARTI

Pas besoin de te compliquer, le nombre de jours est déjà calculé : c'est la variable j.

Au lieu de faire j*24 et ajouter aux heures, tu l'affectes à ta nouvelle TextBox.

Merci du fond du cœur.. Merci MFerrand

Amicalement

Marti

Bonsoir EXCEL PRATIQUE

Bonsoir MFerrand

Bonsoir tout le monde

Mes excuses .. sincerement je suis desolé j'ai cru que c'est fini et je peux completer le reste du code mais depuis hier j'ai pas pu trouver ce que je dois faire pour sortir de cet enfer

J'ai essaye comme ca mais pas de solution

SVP si vous pouvez m'indiquer a la bonne direction de ce code

Amicalement

MARTI

    Dim d1 As Date, d2 As Date

    Sub EcartTemps()
        Dim d, j%
        If d1 > 0 And d2 > 0 Then
            d = d2 - d1: j = Int(d)
            TextBox3.Value = Hour(d) 
            TextBox4.Value = Minute(d)
            TextBox5.Value = Second(d)
    TextBox6.Value = j*24
Else
            For j = 3 To 6
                Controls("TextBox" & j).Value = ""
            Next j
        End If
    End Sub

    Private Sub TextBox1_AfterUpdate()
        On Error Resume Next
        d1 = CDate(TextBox1.Value)
        If Err.Number <> 0 Then TextBox1.Value = "": d1 = 0
        EcartTemps
    End Sub

    Private Sub TextBox2_AfterUpdate()
        On Error Resume Next
        d2 = CDate(TextBox2.Value)
        If Err.Number <> 0 Then TextBox2.Value = "": d2 = 0
        EcartTemps
    End Sub

Si tu mets des jours, ils sont calculés par J = Int(d)

Pas besoin de les convertir en heures !!!

    TextBox6.Value = j

[Et s'il te plait, conserve l'indentation quand elle y est ! Tu vas me fâcher sinon ! ]

Bonsoir MFerrand

Finalement c'est parfaitement resolu

Merci beaucoup et SVP ne te faches pas ..

Cordialement

MARTI