interrompre une macro

pierrejean

XLDnaute Barbatruc

• 11 Novembre 2009

• #2

Re : interrompre une macro

bonjour bpol

A tester:

Code:

[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]

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 12 Novembre 2009

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2009

• #4

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
@+

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 14 Novembre 2009

• #5

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

 

Pièces jointes

• Classeur1.xls

  22 KB · Affichages: 64
• Classeur1.xls

  22 KB · Affichages: 67
• Classeur1.xls

  22 KB · Affichages: 71

Vote positif 0 Vote négatif

T

typo

Guest

• 14 Novembre 2009

• #6

Re : interrompre une macro

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

 

Pièces jointes

• timer.xls

  36.5 KB · Affichages: 68
• timer.xls

  36.5 KB · Affichages: 71
• timer.xls

  36.5 KB · Affichages: 66

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 14 Novembre 2009

• #7

Re : interrompre une macro

bonsoir typo,

ce n'est pas ce dont j'ai besoin

mais merci quand même

Bpol

 

Vote positif 0 Vote négatif

T

typo

Guest

• 14 Novembre 2009

• #8

Re : interrompre une macro

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

 

Pièces jointes

• timer2.xls

  42 KB · Affichages: 79

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 15 Novembre 2009

• #9

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

 

Vote positif 0 Vote négatif