BLAGUE : FORMATAGE-DÉFORMATAGE

Private Sub Command1_Click()
Prout.Visible = True
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Check1.Value = Checked Then Beep
If Prout.Value = 100 Then MsgBox " Formatage terminé avec succès !"
If Prout.Value = 100 Then
    Timer1.Enabled = False
    Command1.Visible = False
    Command2.Visible = True
Else
    Prout.Value = Prout.Value + 1
End If
End Sub

Private Sub Timer2_Timer()
If Check1.Value = Checked Then Beep
If Prout.Value = 0 Then MsgBox " Déformatage terminé avec succès !"
If Prout.Value = 0 Then
    Timer2.Enabled = False
    Command1.Visible = True
    Command2.Visible = False
Else
    Prout.Value = Prout.Value - 1
End If
End Sub