interrompre une macro

[bpol]

bonjour le forum,

j'ai une macro qui à la fin fait une pause et je me demandais s'il était possible avec une autre macro d'interrompre ce temps de pause afin qu'elle continue ces instructions.

......

'And
Worksheets("tableau").Select
'and
Dim Pause As Integer, dep As Single
dep = Timer
Pause = 30
Do While Timer < dep + Pause
DoEvents
Loop
Range("A3") = Range("A3") + Range("L2")
Range("B4") = Range("B4") + Range("L1")
Range("A3").Select


End Sub


Merci
BPOL

 

[pierrejean]

Re : interrompre une macro

bonjour bpol

A tester:

[COLOR=blue]Public stop As Boolean[/COLOR]
 
sub !!! ()
......

'And
Worksheets("tableau").Select
'and
Dim Pause As Integer, dep As Single
dep = Timer
Pause = 30
Do While Timer < dep + Pause [COLOR=blue]Or stop=true
[/COLOR]DoEvents
Loop
Range("A3") = Range("A3") + Range("L2")
Range("B4") = Range("B4") + Range("L1")
Range("A3").Select
[COLOR=blue]stop=false
[/COLOR]
End Sub

[COLOR=blue]sub Arret()[/COLOR]
[COLOR=blue]  stop=True[/COLOR]
[COLOR=blue]End sub[/COLOR]

 

[bpol]

Re : interrompre une macro

bonsoir Pierrejean,

merci pour ta réponse mais comment faire pour activer l'ajout de code que tu m'as envoyé?
Merci
BPOL

 

[Pierrot93]

Re : interrompre une macro

Bonjour bpol, PierreJean

essaye peut être en créant un bouton auquel tu affectes cette macro.

A noter que "Stop" est déjà une instruction vba, sous Excel 2003, il est préférable me semble t'il de modifier son nom afin de ne pas l'utiliser comme variable.

bonne journée
@+

 

[bpol]

Re : interrompre une macro

bonjour le forum,

après essai de vos suggestions je reste bloqué.

Ci joint un exemple simplifié qui ne fonctionne pas.

la macro continue son temps de pause

Merci à tout
Bpol

 

[typo]

Re : interrompre une macro

bonjour bpol , le fil, le forum
peut être à adapter à ton cas?
tiens moi au jus
cordialement
typo

 

[bpol]

Re : interrompre une macro

bonsoir typo,

ce n'est pas ce dont j'ai besoin

mais merci quand même

Bpol

 

[typo]

Re : interrompre une macro

bonsoir bpol
j'ai essayé de te l'adapter mais peut être que je n'ai pas bien compris.
@+
typo

 

[bpol]

Re : interrompre une macro

bonjour typo,

oui c'est le résultat escompté je vais essayé de l'adapter car il ne faut pas la feuille2

Bon dimanche

BPOL