Discussion :

[vbaddict44]

bonjour,

j'aimerai intégrer une barre de progression qui affiche l'état d'avancement (en pourcentage ou en seconde) de mon programme vba déclenché par un bouton formulaire. Mon programme effectue des accès a une base de données en utilisant DAO. Ya t'il un moyen simple pour faire cela.

MERCI.

[nico84]

bonjour,

Il y a une commande pour afficher une progression en bas à gauche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
CurrentDb.Properties("StartupShowStatusBar") = True 'paramétrage pour afficher des infos en bas de l'écran (une fois pour toutes)
dim r as double
r = SysCmd(1, "mon message", NbDeBoucles) 'initialise un message en bas de l'écran avec jauge
r = syscmd(2, n°Boucle) 'avancement entre 1 et nbdeboucles
r = syscmd(3) 'efface

[Tonioyo]

Bonjour,

Pour utiliser une progress bar dans un formulaire il faut utiliser l'OLE "Microsoft ProgressBar Control SP6.0" (ou version ultérieur).

Pour utiliser la progress bar il faut lui donner une valeur allant de 0 à 1. Il faut donc utiliser un pourcentage de progression.

PS: Les outils OLE sont ceux représenté par une paire d'outils et trois petits points dans la boîte à outil pour les formulaires.

[vbaddict44]

soit plus explicite nico84 stp

[vbaddict44]

j'ai ajouter un objet OLE mais comment faire pour que la barre de progression pregresse en fonction de l'etat d'avancement du programme

[Invité]

Bonjour

Je pense que tu devrais lire cet excellent tuto : ACCESS : Créez un formulaire d'attente pour les longs traitements

Philippe

[vbaddict44]

Merci

[vbaddict44]

je suis sous Access 2003 il n' y a pas plus simple comme solution ?

[nico84]

Ma solution est super simple, il n'y a rien d'autre à en dire que ce que j'ai écrit...

[vbaddict44]

il y a une erreur dans ta solution la propriété n'existe pas