Discussion :

[valerie26]

J'ai un souci avec la Microsoft ProgressBar version 6.0

J'ai bien été voir sur le FAQ mais pour moi ce n'est pas très clair.
Si quelqu'un pourrait m'expliquer svp
J'ai trouvé ça :

mabarre.min = 0
mabarre.max = 100
i=1
While i <= 100
mabarre.value = i
i=i+1
Wend

et ca :

Syscmd acSysCmdInitMeter,"Text à afficher", 100 'Définit le texte à afficher et la valeur maximale de la jauge.
Syscmd acSysCmdUpdateMeter,"Text à afficher", 50 'Définit le texte à afficher et la valeur actuelle de la jauge.
Syscmd acSysCmdRemoveMeter 'Supprime la jauge d'avancement

[pgz]

Bonjour,

Le premier code concerne l'objet Microsoft Progress bar. C'est-à-dire l'objet qu'on peut placer dans un formulaire.

Le deuxième code concerne la barre de progression qui s'affiche dans la barre d'état de la fenêtre Access, et qui est utilisable sans formulaire.

Bon courage,

PGZ

[valerie26]

Bonjour,

Le premier code concerne l'objet Microsoft Progress bar. C'est-à-dire l'objet qu'on peut placer dans un formulaire.

Oui mais il faut le placer où ?

[SfJ5Rpw8]

Oui mais il faut le placer où ?

ben en fait le code n'est qu'un exemple ... les lignes ..:

Code :

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

1
2
3
 
mabarre.min = 0 
mabarre.max = 100

permettent de modifier les bornes mini maxi de ton contrôle.. tu peu aussi les modifier dans les propriétés de ton contrôel...


ensuite... dans la boucle effectuant ton traitement, tu fait evoluer mabarre.value.. de façon as ce que sa valeur passe de 0 à 100 pendant le traitement..

[valerie26]

J'ai du mal comprende, pourtant je fais mon max et j'essaye, mais là ... je coinçe ...

[SilkyRoad]

bonjour

cet exemple est réalisé dans Excel mais j'espere que tu pourras t'en inspirer

http://silkyroad.developpez.com/VBA/...erForm/#LIII-K


bon apres midi
michel

[LostIN]

j'ai pas access, mais ca doit marcher comme ca
ex simplissime

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim i As Long
Dim NbEnreg As Long
 
' nbenreg pourrait provenir d'un select count machin ...
' pour l'expemple je le met à 500
NbEnreg = 500
 
mabarre.Min = 0
mabarre.Max = NbEnreg
 
 
For i = 1 To NbEnreg
  mabarre.Value = i
Next

en utilisant le controle ms progressbar

dans ta boucle tu mets ce que tu veux
voila

[philben]

Bonjour,

voici un lien pour un exemple :
http://officesystem.access.free.fr/telechargement.htm

Fichier : Barreprogression.zip dans la catégorie <Formulaire>

Voir les propriétés des contrôles et le code VBA.

Philippe

[pgz]

Valérie26 a écrit :
Oui mais il faut le placer où ?

Si tu as besoin d'une barre de progression c'est que tu fais un traitement pendant lequel l'utilisateur doit patienter, et non pas s'impatienter.
A toi de nous dire quel est ce traitement long...
Mais j'imagine que c'est une procédure. Donc au début tu initialises ta barre, la rend visible, puis tu la fais progresser pendant le traitement et tu la rends invisble quand c'est fini.
Si ta procédure est dans le lodule associé au formulaire qui contient l'objet Microsoft Progress Bar V 6.0, il faut le désigner : Me.ProgressBar. et donc

Code :

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

1
2
3
Me.ProgressBar.Max = ...
Me.ProgressBar.Visible = True
Me.ProgressBar.Value = ...

C'est plus clair?

Bon courage,

PGZ

[valerie26]

Merci à vous pour votre aide ; c'est beucoup plus clair maintenant