OVH Cloud OVH Cloud

Arret procédure Version 2 + boucle do Loop

2 réponses
Avatar
j0b
Voila voila après l'aide qu'on ma fournit j'ai fait ma procédure
Sub animation()
Call testing
Application.OnTime Now + TimeValue("00:00:01"), "testing1"
Application.OnTime Now + TimeValue("00:00:02"), "testing2"
Application.OnTime Now + TimeValue("00:00:03"), "testing3"
End Sub

Et je voudrais rajouter une boucle Do loop a celle ci pour qu'elle ne
s'arrete pas
Et avec une autre procédure je voudrais pouvoir arreter celle ci par exemple
quand je clic sur un bouton.

Désole JJ mais j'ai un peu de mal je suis un newbie en vba donc j ai un peu
de mal je fais comme je peux.

Merci bien pour votre soutien et votre aide

2 réponses

Avatar
papou
Bonjour
Je ne comprends pas la question 1, pour moi ta macro ne s'arrête pas en
théorie en tout cas !
Pour le 2, tu peux par exemple simplement utiliser une variable booléenne
(VRAI/FAUX) que tu initialises à l'ouverture de ton classeur par exemple et
que tu fais passer à FAUX lorsque tu souhaites arrêter la procédure.
Donc dans un module standard en tête de module :
Public Arret As Boolean
Dans une macro Auto_Open (qui se déclenche à l'ouverture)
Sub Auto_Open()
Arret = False
End Sub
Puis dans ta macro animation:
Sub animation()
If Not Arret Then
Call testing
Application.OnTime Now + TimeValue("00:00:01"), "testing1"
Application.OnTime Now + TimeValue("00:00:02"), "testing2"
Application.OnTime Now + TimeValue("00:00:03"), "testing3"
End if
End Sub

Et enfin dans le code de ton bouton :
Arret = True

Cordialement
Pascal



"j0b" a écrit dans le message de news:

Voila voila après l'aide qu'on ma fournit j'ai fait ma procédure
Sub animation()
Call testing
Application.OnTime Now + TimeValue("00:00:01"), "testing1"
Application.OnTime Now + TimeValue("00:00:02"), "testing2"
Application.OnTime Now + TimeValue("00:00:03"), "testing3"
End Sub

Et je voudrais rajouter une boucle Do loop a celle ci pour qu'elle ne
s'arrete pas
Et avec une autre procédure je voudrais pouvoir arreter celle ci par
exemple
quand je clic sur un bouton.

Désole JJ mais j'ai un peu de mal je suis un newbie en vba donc j ai un
peu
de mal je fais comme je peux.

Merci bien pour votre soutien et votre aide


Avatar
j0b
Merci bien pour tous les conseils, merci encore


Bonjour
Je ne comprends pas la question 1, pour moi ta macro ne s'arrête pas en
théorie en tout cas !
Pour le 2, tu peux par exemple simplement utiliser une variable booléenne
(VRAI/FAUX) que tu initialises à l'ouverture de ton classeur par exemple et
que tu fais passer à FAUX lorsque tu souhaites arrêter la procédure.
Donc dans un module standard en tête de module :
Public Arret As Boolean
Dans une macro Auto_Open (qui se déclenche à l'ouverture)
Sub Auto_Open()
Arret = False
End Sub
Puis dans ta macro animation:
Sub animation()
If Not Arret Then
Call testing
Application.OnTime Now + TimeValue("00:00:01"), "testing1"
Application.OnTime Now + TimeValue("00:00:02"), "testing2"
Application.OnTime Now + TimeValue("00:00:03"), "testing3"
End if
End Sub

Et enfin dans le code de ton bouton :
Arret = True

Cordialement
Pascal



"j0b" a écrit dans le message de news:

Voila voila après l'aide qu'on ma fournit j'ai fait ma procédure
Sub animation()
Call testing
Application.OnTime Now + TimeValue("00:00:01"), "testing1"
Application.OnTime Now + TimeValue("00:00:02"), "testing2"
Application.OnTime Now + TimeValue("00:00:03"), "testing3"
End Sub

Et je voudrais rajouter une boucle Do loop a celle ci pour qu'elle ne
s'arrete pas
Et avec une autre procédure je voudrais pouvoir arreter celle ci par
exemple
quand je clic sur un bouton.

Désole JJ mais j'ai un peu de mal je suis un newbie en vba donc j ai un
peu
de mal je fais comme je peux.

Merci bien pour votre soutien et votre aide