Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

abrouers

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

abrouers

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…