XL 2019 remplacement de macro

[valouf]

Bonjour je voudrais une nouvelle macro pour faire une boucle ci joint fichier merci d'avance

 

[sylvanu]

Bonsoir Valouf,
En trichant, une possibilité :

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.

 

[valouf]

Bonsoir Valouf,
En trichant, une possibilité :

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.

 

[valouf]

super génial merci beaucoup sylvanu