Barre de chargement - vba userform

[marou76]

Bonjour,

J'ai un userform réalisant plusieurs applications.
Pour le rendre plus agréable d'utilisation je souhaite y inserer une barre de chargement entre chaque tache (Par exemple une barre de chargement de 2seconde).
Pouvez-vous m'aider à integrer cela dans mon userfom.

Merci beaucoup.

Cordialement.

 

[Pierrot93]

Re : Barre de chargement - vba userform

Bonjour,

fait une recherche dans le forum avec le mot clé "progressbar", devrait te donner quelques pistes...

Bon après midi
@+

 

[marou76]

Re : Barre de chargement - vba userform

Encore merci Pierrot pour tes réponses.
J'ai trouvé un code que voici :

Sub TaMacro()
Dim i&, k As Byte

ii = Timer
Load UserForm1
UserForm1.Show
UserForm1.ProgressBar1.Value = k + 1
For i = 1 To 45
Application.Wait (Now + TimeValue("0:00:01"))
k = CByte(Timer - ii)
UserForm1.ProgressBar1.Value = k + 2
Next
UserForm1.ProgressBar1.Value = 100
Application.Wait (Now + TimeValue("0:00:01"))
Unload UserForm1
End Sub

Mais le chargement et trop long. J'ai modifié les différent paramétres pour réduire le temps mais rien n'y fait.
As-tu une idée sur la question ?

 

[Pierrot93]

Re : Barre de chargement - vba userform

Re,

en l'état pas trop d'idée, de plus pas trop fan de ce genre d'artifice, ne font que ralentir l'exécution du code.... Regarde peut être aussi ce lien de J Boisgontier...
Les formulaires

 

[marou76]

Re : Barre de chargement - vba userform

Sais-tu comment s'utilise TimeValue("0:00:00") ?
J'aimerais avoir une milli-seconde.
Merci

 

[Pierrot93]

Re : Barre de chargement - vba userform

Re

sauf erreur "TimeValue" ne les prend pas en compte... essaye peut être ceci :

Application.Wait (Now + 1 / 24 / 60 / 60 / 1000)

si je ne me suis pas planté... pas sûr... mais une milli seconde cela ne fait pas beaucoup....