Re : problème de classement
Bonsoir à tous
Voila, j'avance petit à petit, doucement mais surement, je suis sur la partie de mon userform1 qui contient plusieurs Textbox c'est plus particulièrement la TextBox5 (départ) la TextBox6 (retour) et la TextBox7 sur les quelles je recherche une solution.
J'aimerais que dans la TextBox7, s'incrémente automatiquement le résultat de la TextBox6 moins la TextBox5 c'est là que je coince alors si vous pouvez m'apporter votre aide sur ce passage ce ne seras pas de refus.
_____________________________________________________
Private Sub TextBox5_AfterUpdate()
Dim H1 As Date
Dim H2 As Date
H1 = CDate(TextBox5.Value = "hh:nn")
H2 = CDate(TextBox6.Value = "hh:nn")
TextBox7.Value = H2 - H1
End Sub
_______________________________________________________
Private Sub TextBox6_AfterUpdate()
Dim H1 As Date
Dim H2 As Date
H1 = CDate(TextBox5.Value = "hh:nn")
H2 = CDate(TextBox6.Value = "hh:nn")
TextBox7.Value = H2 - H1
End Sub
____________________________________________________
Private Sub TextBox7_AfterUpdate()
Dim Delta As Long
If IsDate(TextBox6.Value) And IsDate(TextBox5.Value) Then
Delta = DateDiff("n", CDate(TextBox5.Value), CDate(TextBox6.Value))
TextBox7.Value = FormatDateTime(TimeSerial(0, Delta, 0), vbShortTime)
End If
End Sub
__________________________________________________
Bonne soirée à tous Dominique.