'dans un module ou dans votre feuille : Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub hbwait(millisecondes As Long) Dim attente As Long attente = GetTickCount + millisecondes Do Until GetTickCount >= attente DoEvents Sleep 1 Loop End Sub 'et au moment ou vous voulez la pause : hbwait 5000
ya une api qui fait la meme chose:private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)et donc tu faissleep 500 et ca attend 500 msmais contrairement à ton code, tout ton prog est arreté (tu ne peux pas déplacer ta fenetre ou cliquer...)@+
Bah justement c'est ca l'interet, immagine tu fais une pause de 120secondes, ca la fout mal si l'user perd la main... d'ou l'interet de la boucle de doevents par rapport à sleep . et j'ai preciser dans l'entete que je connaissais sleep, mais merci quand meme ;)
C'est intéressant. La fonction SLEEP a cet avantage que le système fige l'application pour la durée fixée : Aucune ressource système utilisée. La fonction qui est proposée ici fige le programme sans le figer, en fait, il se contente de regarder sa montre jusqu'à ce qu'il soit l'heure de continuer, ce qui bouffe des ressources systèmes, et en Graaaaaaande quantité sur un PC des plus antiques ... Mais qui en utilise encore ? (Nota pour ceux qui sont tentés de dire "Moiiiii !", je sais, moi aussi ...)
sa s'appelle les événements !c'est le placement de doevents qui fait tout !
merci excellent ca ma rendu bien service ;)
En effet, tres interessant!Il faut tout de meme se mefier que le contexte ne change pas!
simple et efficace!je travaille sur un synchronisateur de contacts bdd oracle/outlook, et ta fonction permet de garder un controle sur l'application qui pourrait tourner longtemps si le nombre de contacts est important...merci beaucoup!Ryu
Je sais que cette source date mais c'est juste pour info:Le sleep 1 n'est pas nécessaire ...
Annulé, j'avais pas vu l'historique de mise a jour ;)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte