UNE VRAI PAUSE DANS LE CODE (COURT ET SIMPLE)

Signaler
-
Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/434-une-vrai-pause-dans-le-code-court-et-simple

Messages postés
2075
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
16 mars 2020
2
Pensez à écrire du code en Option Explicit, ça évite bien des soucis :)
Messages postés
1
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
28 mars 2002

Mouais, mais faut un peu penser aux petits copains (i.e. les autres tâches ou fonctions en cours)

Je te suggère plutot :

Sub FaireUnePause2LeRetour(NbSec As Long, _
Optional ByVal bBloqueTout As Boolean = True)
Dim HeureLimite As Date
'calcule la limite à atteindre
TimeLimite = DateAdd("s", NbSec, Time)
'boucle d'attente
While Time <= TimeLimite
'le reste du monde fonctionnera quand même
If Not bBloqueTout Then DoEvents
Wend
End Sub

Tu peux comme cela choisir de bloquer le reste de ton appli on non.

Il y aurait une solution encore + efficace pour ne pas trop bloquer la cpu, basée sur un timer, mais bon, j'ai pas trop de temps... :-)

Hop
Génial comme code !!! Felicitation.