Microsoft 365 Changer la valeur d'une cellule Excel (passer de 1 à 15) toutes les 20 secondes

patricktoulon à dit:

Bonsoir
et à 15 on fait quoi ?

Cliquez pour agrandir...

patricktoulon à dit:

ok
colle ca dans un module

VB:

Dim roule As Boolean

Sub start()
roule = True
Application.OnTime Now + 0.00001, "plusplus"
End Sub

Sub arrete()
roule = False
'[A1]=0'pour le remettre a zero
End Sub

Sub plusplus()
[a1] = Array([a1] + 1, 1)(Abs([a1] >= 15))
If roule Then Application.OnTime Now + 0.00001, "plusplus"
End Sub

mes deux shapes dans ta feuille
et affecte la macro start à l'une et la macro arrete à l'autre
et avant guinguant

Cliquez pour agrandir...