OVH Cloud OVH Cloud

Insertion ligne de code, pour pause pendant 3 secondes

7 réponses
Avatar
DC
Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de macro,
d'une procédure de pause, pendant environ 3 secondes, de façon à avoir un
contrôle visuel, à un point donné au cours de l'éxécution de cette
macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC

7 réponses

Avatar
Jacques93
Bonjour DC,

Essaie :

Application.Wait DateAdd("s", 3, Now)
MsgBox "3 secondes écoulées"

Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de macro,
d'une procédure de pause, pendant environ 3 secondes, de façon à avoir un
contrôle visuel, à un point donné au cours de l'éxécution de cette
macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC





--
Cordialement,

Jacques.

Avatar
DC
Bonjour à tous.....................Bonjour Jacques93,

Merci de ta réponse positive, çà fonctionne très bien,....mais...!!

J'ai omis de préciser que le contrôle que je voudrais exercer, est la
fonction F2 dans une cellule contenant une formule, d'ou le carré bleu
montrant de qu'elles valeurs dépend le résultat de la formule, et cette
fonction disparait.........pourquoi...??.....Merci d'y penser,

Cordialement.........Merci d'avance........bonne journée.......DC

"Jacques93" a écrit dans le message de news:
%
Bonjour DC,

Essaie :

Application.Wait DateAdd("s", 3, Now)
MsgBox "3 secondes écoulées"

Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de
macro, d'une procédure de pause, pendant environ 3 secondes, de façon à
avoir un contrôle visuel, à un point donné au cours de l'éxécution de
cette macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC



--
Cordialement,

Jacques.



Avatar
Jacques93
Bonjour DC,

Peut être :

Dim tmEnd As Date

tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend

Bonjour à tous.....................Bonjour Jacques93,

Merci de ta réponse positive, çà fonctionne très bien,....mais...!!

J'ai omis de préciser que le contrôle que je voudrais exercer, est la
fonction F2 dans une cellule contenant une formule, d'ou le carré bleu
montrant de qu'elles valeurs dépend le résultat de la formule, et cette
fonction disparait.........pourquoi...??.....Merci d'y penser,

Cordialement.........Merci d'avance........bonne journée.......DC

"Jacques93" a écrit dans le message de news:
%

Bonjour DC,

Essaie :

Application.Wait DateAdd("s", 3, Now)
MsgBox "3 secondes écoulées"


Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de
macro, d'une procédure de pause, pendant environ 3 secondes, de façon à
avoir un contrôle visuel, à un point donné au cours de l'éxécution de
cette macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC



--
Cordialement,

Jacques.







--
Cordialement,

Jacques.



Avatar
DC
Bonjour à tous...............Bonjour Jacques93,

Merci de me suivre...!!..............c'est sympa.

Je te mets le morceau de procédure concerné, et c'est la première ligne,
représentant la fonction " F2 "sur une cellule, comprenant la formule du
résultat, qui n'affiche pas ce qu'elle devrait, donc je n'est pas de
contrôle visuel pendant 3 secondes ( pourtant je l'ai éxecutée avec " Outils
Nouvelle Macro" ) de Excel 2000 sur XP

Quand à ta procédure de pause pendant 3 secondes, elle fonctionne très bien
et suis navré de ne pas comprendre le pourquoi des choses, sur cette
première ligne, enfin bon...!!....si tu veux y réfléchir, à moins que,
quelqu'un est la solution magique dans sa besace...........Merci de votre
aide à tous...!!
'---------------------------------------------------
ActiveCell.FormulaR1C1 = "=SUM(R25C11:R34C11)"

Dim tmEnd As Date
tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend
'---------------------------------------------------
Salutations!...........Merci d'avance.........bonne journée......DC

"Jacques93" a écrit dans le message de news:

Bonjour DC,

Peut être :

Dim tmEnd As Date

tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend

Bonjour à tous.....................Bonjour Jacques93,

Merci de ta réponse positive, çà fonctionne très bien,....mais...!!

J'ai omis de préciser que le contrôle que je voudrais exercer, est la
fonction F2 dans une cellule contenant une formule, d'ou le carré bleu
montrant de qu'elles valeurs dépend le résultat de la formule, et cette
fonction disparait.........pourquoi...??.....Merci d'y penser,

Cordialement.........Merci d'avance........bonne journée.......DC

"Jacques93" a écrit dans le message de news:
%

Bonjour DC,

Essaie :

Application.Wait DateAdd("s", 3, Now)
MsgBox "3 secondes écoulées"


Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de
macro, d'une procédure de pause, pendant environ 3 secondes, de façon à
avoir un contrôle visuel, à un point donné au cours de l'éxécution de
cette macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC



--
Cordialement,

Jacques.







--
Cordialement,

Jacques.





Avatar
Jacques93
Bonjour DC,

Si j'ai bien compris, le but est d'afficher le rectangle bleu sur
K25:K34, et la formule dans la cellule ? dans ce cas, essaie :

ActiveCell.FormulaR1C1 = "=SUM(R25C11:R34C11)"
ActiveCell.Activate
SendKeys "{F2}"
tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend
SendKeys "{ESC}"

Bonjour à tous...............Bonjour Jacques93,

Merci de me suivre...!!..............c'est sympa.

Je te mets le morceau de procédure concerné, et c'est la première ligne,
représentant la fonction " F2 "sur une cellule, comprenant la formule du
résultat, qui n'affiche pas ce qu'elle devrait, donc je n'est pas de
contrôle visuel pendant 3 secondes ( pourtant je l'ai éxecutée avec " Outils
Nouvelle Macro" ) de Excel 2000 sur XP

Quand à ta procédure de pause pendant 3 secondes, elle fonctionne très bien
et suis navré de ne pas comprendre le pourquoi des choses, sur cette
première ligne, enfin bon...!!....si tu veux y réfléchir, à moins que,
quelqu'un est la solution magique dans sa besace...........Merci de votre
aide à tous...!!
'---------------------------------------------------
ActiveCell.FormulaR1C1 = "=SUM(R25C11:R34C11)"

Dim tmEnd As Date
tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend
'---------------------------------------------------
Salutations!...........Merci d'avance.........bonne journée......DC

"Jacques93" a écrit dans le message de news:


Bonjour DC,

Peut être :

Dim tmEnd As Date

tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend


Bonjour à tous.....................Bonjour Jacques93,

Merci de ta réponse positive, çà fonctionne très bien,....mais...!!

J'ai omis de préciser que le contrôle que je voudrais exercer, est la
fonction F2 dans une cellule contenant une formule, d'ou le carré bleu
montrant de qu'elles valeurs dépend le résultat de la formule, et cette
fonction disparait.........pourquoi...??.....Merci d'y penser,

Cordialement.........Merci d'avance........bonne journée.......DC

"Jacques93" a écrit dans le message de news:
%


Bonjour DC,

Essaie :

Application.Wait DateAdd("s", 3, Now)
MsgBox "3 secondes écoulées"



Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de
macro, d'une procédure de pause, pendant environ 3 secondes, de façon à
avoir un contrôle visuel, à un point donné au cours de l'éxécution de
cette macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC



--
Cordialement,

Jacques.






--
Cordialement,

Jacques.







--
Cordialement,

Jacques.





Avatar
DC
Bonsoir à tous.................Bonsoir Jacques93,

Merci de ta réponse " Super positive "......bonne soirée...!!

Euréka...!!....c'est plus que parfait, tu as bien cerné ce que je cherchais,
malgrès mes explications un peut......enfin bref...!!

Cette procédure fonctionne à merveille........un grand Merci...!!

Cordialement........de nouveau Merci.....c'est le pied...!!.....DC

"Jacques93" a écrit dans le message de news:
%23Qh$
Bonjour DC,

Si j'ai bien compris, le but est d'afficher le rectangle bleu sur K25:K34,
et la formule dans la cellule ? dans ce cas, essaie :

ActiveCell.FormulaR1C1 = "=SUM(R25C11:R34C11)"
ActiveCell.Activate
SendKeys "{F2}"
tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend
SendKeys "{ESC}"

Bonjour à tous...............Bonjour Jacques93,

Merci de me suivre...!!..............c'est sympa.

Je te mets le morceau de procédure concerné, et c'est la première ligne,
représentant la fonction " F2 "sur une cellule, comprenant la formule du
résultat, qui n'affiche pas ce qu'elle devrait, donc je n'est pas de
contrôle visuel pendant 3 secondes ( pourtant je l'ai éxecutée avec "
Outils Nouvelle Macro" ) de Excel 2000 sur XP

Quand à ta procédure de pause pendant 3 secondes, elle fonctionne très
bien et suis navré de ne pas comprendre le pourquoi des choses, sur cette
première ligne, enfin bon...!!....si tu veux y réfléchir, à moins que,
quelqu'un est la solution magique dans sa besace...........Merci de votre
aide à tous...!!
'---------------------------------------------------
ActiveCell.FormulaR1C1 = "=SUM(R25C11:R34C11)"

Dim tmEnd As Date
tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend
'---------------------------------------------------
Salutations!...........Merci d'avance.........bonne journée......DC

"Jacques93" a écrit dans le message de news:


Bonjour DC,

Peut être :

Dim tmEnd As Date

tmEnd = DateAdd("s", 3, Now)
While Now < tmEnd
DoEvents
Wend


Bonjour à tous.....................Bonjour Jacques93,

Merci de ta réponse positive, çà fonctionne très bien,....mais...!!

J'ai omis de préciser que le contrôle que je voudrais exercer, est la
fonction F2 dans une cellule contenant une formule, d'ou le carré bleu
montrant de qu'elles valeurs dépend le résultat de la formule, et cette
fonction disparait.........pourquoi...??.....Merci d'y penser,

Cordialement.........Merci d'avance........bonne journée.......DC

"Jacques93" a écrit dans le message de news:
%


Bonjour DC,

Essaie :

Application.Wait DateAdd("s", 3, Now)
MsgBox "3 secondes écoulées"



Bonjour à tous,.......................Excel 2000 sous XP

Merci de me lire...!!...............Bonne Journée...!!

Voilà, j'aimerais disposer, si c'est possible, en cour d'éxécution de
macro, d'une procédure de pause, pendant environ 3 secondes, de façon
à avoir un contrôle visuel, à un point donné au cours de l'éxécution
de cette macro,...........est-ce possible...!!

Salutations..........Merci d'avance d'y réfléchir...!!.............DC



--
Cordialement,

Jacques.






--
Cordialement,

Jacques.







--
Cordialement,

Jacques.







Avatar
Jacques93
Bonjour DC,

Merci du retour, restons calme :-D

Bonsoir à tous.................Bonsoir Jacques93,

Merci de ta réponse " Super positive "......bonne soirée...!!

Euréka...!!....c'est plus que parfait, tu as bien cerné ce que je cherchais,
malgrès mes explications un peut......enfin bref...!!

Cette procédure fonctionne à merveille........un grand Merci...!!

Cordialement........de nouveau Merci.....c'est le pied...!!.....DC



--
Cordialement,

Jacques.