[RESOLU]Calcul dans TextBox

[Ternoise]

Bonjour le Forum

Je n'arrive pas à faire ce calcul d'heure dans un TextBox nommé Text4

=SI(H9="";"";SI(ET(H9>$N$4;H9<$O$4);H9-$N$4;SI(H9>$N$4;$O$4-$N$4;"")))

En sachant que :
Format "Heure"
H9 = Text1
N4 = Text2
O4 = Text3

Merci de votre aide matinale, un dimanche !!!
David

 

[Ternoise]

Re : Calcul dans TextBox

Re
Un exemple en pièce jointe

Merci
David

 

[job75]

Re : Calcul dans TextBox

Bonjour Ternoise,

Dans le code de l'USF :

Private Sub TextBox1_Change()
Résultat
End Sub

Private Sub TextBox2_Change()
Résultat
End Sub

Private Sub TextBox3_Change()
Résultat
End Sub

Private Sub UserForm_Initialize()
Résultat
End Sub

Sub Résultat()
If IsDate(TextBox1) * IsDate(TextBox2) * IsDate(TextBox3) = 0 Then TextBox4 = "": Exit Sub
Dim t1 As Date, t2 As Date, t3 As Date
t1 = CDate(TextBox1): t2 = CDate(TextBox2): t3 = CDate(TextBox3)
If t2 > t3 Then TextBox4 = "": Exit Sub
TextBox4 = Format(IIf(t1 < t2, t2, IIf(t1 < t3, t1, t3)) - t2, "hh:mm")
End Sub

A+

 

[Ternoise]

Re : Calcul dans TextBox

Bonjour Job75

Impec. Comme dab

Merci beaucoup
Bon dimanche
David