Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" a écrit dans le message de
news:
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" <Alfred@savoie.fr> a écrit dans le message de
news:ub1t7TZPEHA.2996@TK2MSFTNGP12.phx.gbl...
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" a écrit dans le message de
news:
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" a écrit dans le message de
news:
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" <Alfred@savoie.fr> a écrit dans le message de
news:ub1t7TZPEHA.2996@TK2MSFTNGP12.phx.gbl...
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" a écrit dans le message de
news:
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Pascal,
En supposant que cette propriété n'est pas défini de cette façon au départ
de la macro, je suis d'accord avec toi, et ne
prétend pas le contraire.
Application.EnableCancelKey = xlInterrupt
Même si ESC peut arrêter une macro, tu conviendras qu'il y a des façons
plus élégantes de terminer une procédure par une
boîte de dialogue vous demandant de "Debugger" la procédure !!!
" D'autre part rien ne dit que ce calcul est lancé d'un userform"
Des boutons de commandes peuvent être placé dans une feuille, ou dans une
barre d'outils de l'application. Lorsque l'on
veut contrôler un environnement, il est préférable de se donner les outils
pour le faire sinon c'est l'application qui
va prendre la relève.
Salutations!
"Pascal Engelmajer" a écrit dans le
message de
news:O97Vc%
Salut,
chez moi la touche escape arrête la procédure si elle à une boucle...
Sub boucle()
i = 1
For i = 1 To 1000
i = 100
Next i
End Sub
cette boucle est stoppée par ESC
D'autre part rien ne dit que ce calcul est lancé d'un userform...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"michdenis" a écrit dans le message de news:Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne decommande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" a écrit dans le message de
news:Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(parex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
momentsen pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Pascal,
En supposant que cette propriété n'est pas défini de cette façon au départ
de la macro, je suis d'accord avec toi, et ne
prétend pas le contraire.
Application.EnableCancelKey = xlInterrupt
Même si ESC peut arrêter une macro, tu conviendras qu'il y a des façons
plus élégantes de terminer une procédure par une
boîte de dialogue vous demandant de "Debugger" la procédure !!!
" D'autre part rien ne dit que ce calcul est lancé d'un userform"
Des boutons de commandes peuvent être placé dans une feuille, ou dans une
barre d'outils de l'application. Lorsque l'on
veut contrôler un environnement, il est préférable de se donner les outils
pour le faire sinon c'est l'application qui
va prendre la relève.
Salutations!
"Pascal Engelmajer" <pascal.engelmajer@ilyapa_spam.net> a écrit dans le
message de
news:O97Vc%23ZPEHA.308@TK2MSFTNGP11.phx.gbl...
Salut,
chez moi la touche escape arrête la procédure si elle à une boucle...
Sub boucle()
i = 1
For i = 1 To 1000
i = 100
Next i
End Sub
cette boucle est stoppée par ESC
D'autre part rien ne dit que ce calcul est lancé d'un userform...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
Oyj5r1ZPEHA.1312@TK2MSFTNGP12.phx.gbl...
Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne de
commande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils
"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" <Alfred@savoie.fr> a écrit dans le message de
news:ub1t7TZPEHA.2996@TK2MSFTNGP12.phx.gbl...
Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(par
ex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
moments
en pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al
Bonjour Pascal,
En supposant que cette propriété n'est pas défini de cette façon au départ
de la macro, je suis d'accord avec toi, et ne
prétend pas le contraire.
Application.EnableCancelKey = xlInterrupt
Même si ESC peut arrêter une macro, tu conviendras qu'il y a des façons
plus élégantes de terminer une procédure par une
boîte de dialogue vous demandant de "Debugger" la procédure !!!
" D'autre part rien ne dit que ce calcul est lancé d'un userform"
Des boutons de commandes peuvent être placé dans une feuille, ou dans une
barre d'outils de l'application. Lorsque l'on
veut contrôler un environnement, il est préférable de se donner les outils
pour le faire sinon c'est l'application qui
va prendre la relève.
Salutations!
"Pascal Engelmajer" a écrit dans le
message de
news:O97Vc%
Salut,
chez moi la touche escape arrête la procédure si elle à une boucle...
Sub boucle()
i = 1
For i = 1 To 1000
i = 100
Next i
End Sub
cette boucle est stoppée par ESC
D'autre part rien ne dit que ce calcul est lancé d'un userform...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"michdenis" a écrit dans le message de news:Bonjour Alfred,
Voici le principe :
à divers endroit de ta macro où le temps de calcul peut être très long,
comme dans une boucle, tu insères cette ligne decommande : "DoEvents"
suivi d'une ligne qui teste la valeur arret ...
Voici un exemple que tu peux coller dans un module standard que tu
attaches à 2 boutons de commande de la barre d'outils"Formulaire"
'Dans le haut du module, déclaration d'une variable
Dim Arret As Boolean
'----------------------
Sub ArrêterMacro()
Arret = True
End Sub
'----------------------
Sub MaBoucle()
Arret = False
For a = 1 To 100000000
DoEvents
If Arret = True Then Exit For
b = a 'ce n'est qu'un exemple...
Next
MsgBox "fini"
End Sub
'----------------------
Salutations!
"Alfred" a écrit dans le message de
news:Bonjour,
Merci à Philippe R pour sa réponse mais çà ne marche pas.....
Il s'agit d'arrêter un long calcul itératif en appuyant sur une touche
(parex ESC)
-------------------------
J'ai lancé un calcul dans une macro et je voudrais l'arrêter à tous
momentsen pressant la touche ESC.
Pouvez-vous m'aider ?
Merci à tous
Al