Private Sub CommandButton1_Click()
Dim a, b, c, d, e, f, h, m, s, n, w
a = UserForm2.TextBox1.Value
b = UserForm2.TextBox2.Value
c = UserForm2.TextBox3.Value
d = UserForm2.TextBox4.Value
e = UserForm2.TextBox5.Value
f = UserForm2.TextBox6.Value
'conversion en secondes
h = Val(a & b) / 3600 'converti les heures en secondes
m = Val(c & d) * 60 'converti les minutes en secondes
s = Val(e & f) 'les secondes
n = h + m + s 'n est donc egal au nombre de secondes désiré
'largeur originale de la barre de progression
w = UserForm1.Label3.Width
Me.Hide 'on masque le userform on ne le ferme pas !!!
UserForm1.Show 'on affiche le userform
UserForm1.Label4.Caption = a & b & ":" & c & d & ":" & e & f 'on affiche le temps total de départ
'c'est parti mon kiki
For i = 1 To n
Application.Wait (Now + 0.00001)
DoEvents
UserForm1.Label4.Caption = Format(DateAdd("s", -1, UserForm1.Label4.Caption), "hh:mm:ss") 'on enlève une seconde à chaque tours
UserForm1.Label3.Width = w - ((w / n) * i) 'on reduit la barre de la largeur/n et multiplié par i
If UserForm1.Label4.Caption < #12:00:11 AM# Then
Beep
End If
UserForm1.Repaint
Next
Unload Me
End Sub