Calcul d'heure dans des textbox

Bonjour,

Dans le fichier ci-joint je saisie les heures dans 4 textbox au format HH:MM

Le résultat arrive dans un label, le soucis est que tant que les textbox ne sont pas toute rempli il ne sait pas calculer.

Comment puis-je contourner ce problème ?

Bonjour,

une façon de faire :

Private Sub TextBox4_AfterUpdate()
    If TextBox4.Value = "" Then TextBox4.Tag = 0 Else TextBox4.Tag = TextBox4.Value
    total
End Sub

Private Sub total()
    Label1.Caption = Format(CDate(TextBox1.Tag) + CDate(TextBox2.Tag) + CDate(TextBox3.Tag) + CDate(TextBox4.Tag), "hh:mm")
End Sub

En initialisant les propriétés .tag à 0 pour tes 4 textbox.

eric

Bonjour Eriic,

En appliquant ce que tu m'as dit j'obtiens une erreur de type 13 sur le total.

Tu as mis les propriétés .tag à 0 via la fenêtre Propriétés ?

Un grand merci eriic,

eriiic a écrit :

Tu as mis les propriétés .tag à 0 via la fenêtre Propriétés ?