Sub DecompteMN()
N = 1 ' N vaut 1
While N > 0 ' Tant que N positif on boucle, et donc on boucle à l'infini puisque N est toujours positif
With Sheets("essai")
If IsNumeric(.[B9]) Then
If .[B9] > 0 Then
.[B12] = .[B9]
Do While .[B12] > 0
Application.Wait Now + TimeValue("0:0:1")
.[B12] = .[B12] - 1
Loop
End If
End If
Call arret("Vous êtes arrivé")
.[B12] = .[B9]
End With
Wend
End Sub
Sub arret(vocal)
Application.Speech.Speak vocal, 1
End Sub
On fixe N à 1, puis on boucle tant que N est positif.
Donc à l'infini puisque N est toujours positif.
Sub DecompteMN()
N = 1 ' N vaut 1
While N > 0 ' Tant que N positif on boucle, et donc on boucle à l'infini puisque N est toujours positif
With Sheets("essai")
If IsNumeric(.[B9]) Then
If .[B9] > 0 Then
.[B12] = .[B9]
Do While .[B12] > 0
Application.Wait Now + TimeValue("0:0:1")
.[B12] = .[B12] - 1
Loop
End If
End If
Call arret("Vous êtes arrivé")
.[B12] = .[B9]
End With
Wend
End Sub
Sub arret(vocal)
Application.Speech.Speak vocal, 1
End Sub
On fixe N à 1, puis on boucle tant que N est positif.
Donc à l'infini puisque N est toujours positif.