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

[abrouers]

Bonjour à tou(te)s,
Je souhaiterais mettre en place une macro qui permet de changer la valeur d'une cellule en la faisant passer de 1 à 2 à 3 à ... jusqu'à 15 et je souhaiterais que le changement se fasse toutes les 20 secondes.
Merci pour votre aide.
Excellente soirée à vous.

 

[patricktoulon]

Bonsoir
et à 15 on fait quoi ?

 

[abrouers]

On recommence à 1

 

[abrouers]

Bonsoir
et à 15 on fait quoi ?

On recommence à 1

 

[patricktoulon]

ok
colle ca dans un module

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

 

[abrouers]

ok
colle ca dans un module

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

Merciiiiiiiii beaucoup ... C'est exactement ce qu'il me fallait ! Très belle journée à toi !