Bonjour,
Pourquoi lors de l'execution de cette macro je ne puis reprendre la main,
malgré Doevents
Je crois que je n'ai rien compris à cette instruction
Je souhaiterais pendant que la boucle s'execute modifier des cellules ou
ouvrir l'explorateur
merci de vos réponses
bonne journée
Private Sub test()
Dim i, a
Dim sec1, sec2
sec1 = Time
DoEvents
For i = 1 To 200000
a = a + 1
Next i
sec2 = Time
MsgBox sec1 & " - " & sec2
End Sub
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
Pierre Fauconnier
Bonjour
Sorry, pas eu le temps de répondre hier à ton mail en privé.
Place l'instruction doevents à l'intérieur de la boucle for .. doevents ... next
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"jl Guitard" a écrit dans le message de news:ecFC%
Bonjour, Pourquoi lors de l'execution de cette macro je ne puis reprendre la main, malgré Doevents Je crois que je n'ai rien compris à cette instruction Je souhaiterais pendant que la boucle s'execute modifier des cellules ou ouvrir l'explorateur merci de vos réponses bonne journée
Private Sub test() Dim i, a Dim sec1, sec2 sec1 = Time DoEvents For i = 1 To 200000 a = a + 1 Next i sec2 = Time MsgBox sec1 & " - " & sec2 End Sub
Bonjour
Sorry, pas eu le temps de répondre hier à ton mail en privé.
Place l'instruction doevents à l'intérieur de la boucle
for ..
doevents
...
next
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de
news:ecFC%23vDuEHA.908@TK2MSFTNGP11.phx.gbl...
Bonjour,
Pourquoi lors de l'execution de cette macro je ne puis reprendre la main,
malgré Doevents
Je crois que je n'ai rien compris à cette instruction
Je souhaiterais pendant que la boucle s'execute modifier des cellules ou
ouvrir l'explorateur
merci de vos réponses
bonne journée
Private Sub test()
Dim i, a
Dim sec1, sec2
sec1 = Time
DoEvents
For i = 1 To 200000
a = a + 1
Next i
sec2 = Time
MsgBox sec1 & " - " & sec2
End Sub
Sorry, pas eu le temps de répondre hier à ton mail en privé.
Place l'instruction doevents à l'intérieur de la boucle for .. doevents ... next
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"jl Guitard" a écrit dans le message de news:ecFC%
Bonjour, Pourquoi lors de l'execution de cette macro je ne puis reprendre la main, malgré Doevents Je crois que je n'ai rien compris à cette instruction Je souhaiterais pendant que la boucle s'execute modifier des cellules ou ouvrir l'explorateur merci de vos réponses bonne journée
Private Sub test() Dim i, a Dim sec1, sec2 sec1 = Time DoEvents For i = 1 To 200000 a = a + 1 Next i sec2 = Time MsgBox sec1 & " - " & sec2 End Sub
