Bonjour
je me suis amusé à créer ce petit bout de code ( un peu ch..) à faire ,il a pour but de décrire un compte à rebours mais n'aura jamais la précision d'une vraie horloge ..( c'est juste pour décrire la chose) .
En cells(1,1) on introduit les minutes au choix et en cells (1,2) on introduit le nombre de secondes au choix, puis on lance le décompte . Ce bout de code tourne , mais je ne le trouve pas "esthetique" du tout , peut on l'optimiser ? Merci
Sub decompte()
If Cells(1, 1) = 0 And Cells(1, 2) <> 0 Then
Do
Cells(1, 2) = Cells(1, 2) - 1
Application.Wait Now + TimeValue("00:00:01")
Loop Until Cells(1, 1) = 0 And Cells(1, 2) = 0
End If
'-----------------------------------------------
If Cells(1, 1) <> 0 And Cells(1, 2) = 0 Then
q = Cells(1, 1)
Cells(1, 1) = Cells(1, 1) - 1
j = 1
Do
Cells(1, 2) = (60 * j + Cells(1, 2) - 1) Mod 60
Application.Wait Now + TimeValue("00:00:01")
If Cells(1, 2) = 0 Then
If Cells(1, 1) = 0 Then
GoTo 1
Else
Cells(1, 1) = Cells(1, 1) - 1
End If
1: j = j + 1
End If
Loop Until j = q + 1
End If
'-----------------------------------------------------------------------
If Cells(1, 1) <> 0 And Cells(1, 2) <> 0 Then
p = Cells(1, 1)
k = 0
Do
Cells(1, 2) = (60 * k + Cells(1, 2) - 1) Mod 60
Application.Wait Now + TimeValue("00:00:01")
If Cells(1, 2) = 0 Then
If Cells(1, 1) = 0 Then
GoTo 2
Else
Cells(1, 1) = Cells(1, 1) - 1
End If
2: k = k + 1
End If
Loop Until k = p + 1
End If
End Sub
Merci pour vos suggestions