Table des matières
Attendre ou retarder en VBA
Il existe de nombreux cas où une minuterie peut être utile dans Excel, voici une méthode à essayer :
| 1234 | Sous MyTimer()Application.Attendez maintenant + TimeValue("00:00:05")MsgBox ("5 secondes")Fin du sous-marin |
Quelques utilisations d'un minuteur dans Excel VBA mettent le code en pause et mesurent le temps écoulé. Ce qui suit vous mènera à l'endroit respectif où j'ai posté un exemple de chaque utilisation :
1. Suspendre l'exécution du code pendant la durée souhaitée avec Application.Wait (simulation d'un minuteur)
lien : Masquer Excel
2. Mesurer le temps écoulé avec un Timer en VBA
lien : Code d'analyse comparative
Attendre ou retarder dans Access VBA
Vous pouvez également utiliser les méthodes ci-dessus dans Access VBA. Par exemple, vous souhaiterez peut-être savoir combien de temps il faut pour parcourir un jeu d'enregistrements.
| 123456789101112131415 | Sous-LoopThroughRecords()Compter aussi longtempsDim BenchMark comme doubleBenchMark = Minuteur'Début du code à testerDéfinir dbs = CurrentDbDéfinir d'abord = dbs.OpenRecordset("tblInvoices", dbOpenDynaset)Avec d'abordFaire jusqu'à ce que .EOF = True.MoveNextBoucleTerminer par'Fin de code à testerMsgBox "Il a fallu " & Timer - BenchMark & " secondes pour boucler "Fin du sous-marin |
