J'ai une procédure pour un chart qui actualise un graphique toutes les 5
secondes.
Je voudrais que lorsqu'on clique sur la souris, la boucle s'arrête et en
lance une autre.
Merci de m'aider
--
René Delcourt
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
tissot.emmanuel
Bonjour,
Peut etre une piste en utilisant la touche Echap au lieu d'un clic de souris:
Sub Test() Application.EnableCancelKey = xlErrorHandler 'Parametre Echap On Error GoTo Escape Do Application.Calculate 'ici tes instructions pour rafraichir le graphique Loop Exit Sub Escape: SuiteTest 'la procédure appelé Application.EnableCancelKey = xlInterrupt 'Restaure la touche Echap End Sub
Sub SuiteTest() MsgBox Now End Sub
Cordialement,
Manu/
"René Delcourt" a écrit dans le message de news:
Bonjour
J'ai une procédure pour un chart qui actualise un graphique toutes les 5 secondes. Je voudrais que lorsqu'on clique sur la souris, la boucle s'arrête et en lance une autre. Merci de m'aider -- René Delcourt
Bonjour,
Peut etre une piste en utilisant la touche Echap au lieu d'un clic de
souris:
Sub Test()
Application.EnableCancelKey = xlErrorHandler 'Parametre Echap
On Error GoTo Escape
Do
Application.Calculate 'ici tes instructions pour rafraichir le
graphique
Loop
Exit Sub
Escape:
SuiteTest 'la procédure appelé
Application.EnableCancelKey = xlInterrupt 'Restaure la touche Echap
End Sub
Sub SuiteTest()
MsgBox Now
End Sub
Cordialement,
Manu/
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
D1AF9DEB-5763-4AA0-8A5D-3B0E87F40065@microsoft.com...
Bonjour
J'ai une procédure pour un chart qui actualise un graphique toutes les 5
secondes.
Je voudrais que lorsqu'on clique sur la souris, la boucle s'arrête et en
lance une autre.
Merci de m'aider
--
René Delcourt
Peut etre une piste en utilisant la touche Echap au lieu d'un clic de souris:
Sub Test() Application.EnableCancelKey = xlErrorHandler 'Parametre Echap On Error GoTo Escape Do Application.Calculate 'ici tes instructions pour rafraichir le graphique Loop Exit Sub Escape: SuiteTest 'la procédure appelé Application.EnableCancelKey = xlInterrupt 'Restaure la touche Echap End Sub
Sub SuiteTest() MsgBox Now End Sub
Cordialement,
Manu/
"René Delcourt" a écrit dans le message de news:
Bonjour
J'ai une procédure pour un chart qui actualise un graphique toutes les 5 secondes. Je voudrais que lorsqu'on clique sur la souris, la boucle s'arrête et en lance une autre. Merci de m'aider -- René Delcourt