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
Bonsoir Valouf,
En trichant, une possibilité :
On fixe N à 1, puis on boucle tant que N est positif.VB: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
Donc à l'infini puisque N est toujours positif.