Barre de progression

Barre de progression standard

Lorsque le nombre d'itérations d'un traitement en boucle est calculable à l'avance, on peut, dans le principe, appliquer la méthode relativement discrète ci-dessous :

SysCmd acSysCmdInitMeter, "Traitement en cours ", NbTotal

For No = 1 to NbTotal SysCmd

acSysCmdUpdateMeter, No

'
' Ici ce retrouvera votre traitement des données
'

Next No

SysCmd acSysCmdClearStatus

On peut également indiquer le pourcentage d'avancement en modifiant légèrement le contenu de la boucle For - Next :

For No = 1 to NbTotal

SysCmd acSysCmdInitMeter, "Traitement en cours " & Int((No / NbTotal) * 100) & "%", NbTotal

SysCmd acSysCmdUpdateMeter, No

'
' Traitement
'

Next No

SysCmd acSysCmdClearStatus