Chronométrage qui s'affiche pendant le déroulement du programme

Bonjour,

J'ai créé une variable Début que j'initialise au début de mon programme de la sorte :

Début = Now

Et en fin de programme j'affiche le résultat en A1 de la sorte :

Range("A1").Value = Format(Now - Début, "hh:mm:ss")

Cela fonctionne parfaitement mais ne m'affiche le résultat de la durée de fonctionnement du programme qu'à la fin.

Comment faire pour que le temps qui passe s'affiche tout au long du programme et s'arrête à la fin bien sûr ?

Merci à tous.

bonjour,

tu mets cette instruction aux endroits clés (chaque fois que tu veux une mise à jour de ton affichage) de ton programme, suivie d'un doevents.