Comment stoper une macro

[guy72]

Bonjour,

En bref, comment puis-je arrêter une macro par une autre macro ?

J'ai ce code, qui me fait clignoter le motif de la cellule, mais je n'arrive pas à l'arrêter.
Je souhairerais avoir un ordre pour l'arrêter à ajouter dans ma macro "Remise à Zéro".

Sub Clignot1()

Range("B2").Select
For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 3
'.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01")

With Selection.Interior
.ColorIndex = 5
'.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End Sub

Merci de votre aide.
Guy

 

[Pierrot93]

Re : Comment stoper une macro

Bonjour Guy

essaye peut être ainsi, rajoute dans la macro existante l'instruction en bleu :

Option Explicit
Sub Clignot1()
Range("B2").Select
For compteur = 1 To 20
[COLOR="Blue"][B]DoEvents[/B][/COLOR]
With Selection.Interior
.ColorIndex = 3
'.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01")
With Selection.Interior
.ColorIndex = 5
'.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End Sub

rajoute cette procédure que tu associeras à un bouton :

Sub ArretMacro()
End
End Sub

bonne journée
@+

 

[guy72]

Re : Comment stoper une macro

Bonjour,
Merci de ta réponse
Cordialement
Guy

 

[guy72]

Re : Comment stoper une macro

Re Bonjour,
Je reviens, pace que il y a un problème :
C'est une fois la macro arrêter, je ne peux plus la refaire démarrer.
Car elle démérre quand un certain nombre est inscrit.
puis se nombre est effacé, maius il peut revenir, là la macro doit redémérrer
Cordialement
Guy

 

[Pierrot93]

Re : Comment stoper une macro

Re

le "end" arrête toutes les procédures en cours et réinitialise toutes les variables...

Sub ArretMacro()
End
End Sub

Après tout dépend comment est construit le reste de ton projet... sans plus de détails, vois pas trop comment t'aider...

 

[guy72]

Re : Comment stoper une macro

Ok, je vais regarder ça de plus près.
Guy