Barre de progression avec VB [Résolu]

Bonjour,

Je ne sais pas utilisé les Progressbar, mais tu peux utilisé 3 labels superposés sur un Userform.
Un rouge qui montrera le % restant
Un vert pour la progression (Incrementation)
et le dernier qui affiche le % de traitement

Le truc est de rafficher l'userform pour qu'il puisse augmenter la taille du label vert.

ok, merci d'avoir répondu si vite mais je ne sais pas faire ces manip, pourrais-tu être plus précis ?
Je ne sais pas du tout comment faire et j'aimerai que ça s'affiche dans une msgbox si possible
merci d'avance pour la réponse !

C'est plus une manip que vrai msgbox ^^
Je cherche le code que j'avais fait pour mieu te guider

salut Berty

Tiens regarde ça je pense que sa te plaira :

un petit exemple bateau:
sub

dim numligne as integer, nblig as integer

numligne=1
nblig=1

range("A1").select
while cells(1,1) <> empty
nblig=nblig+1
activecell.offset(1,0).activate

range("A1").select
while cells(1,1) <> empty
[code]
Application.StatusBar = "Traitement de la ligne " & numligne & " sur " & nblig & " lignes"
numligne = numligne+1
wend


Application.StatusBar = False
end sub

En faite ce qu'il y a en gras, c'est le plus important, il affiche un compteur de traitement en bas de la page excel, juste sous les noms de feuilles. N'oublie pas la ligne en fin de programme qui te remet ta barre par défault (Application.StatusBar = False)

Voila si tu as des questions hésite pas

Necro27

je crois avoir répondu trop vite désolé .... je suis resté focalisé sur le vb excel lol

Salut Necro,
Bon point, je regarderais ton code.
Berty tu travail sur excel?

je vais être plus clair moi aussi de mon côté.
Dans mon programme VB j'ai un menu avec un bouton statistiques, quand je clique sur ce bouton, il ouvre une autre userform avec les statistiques présente dans un classeur excel. Le temps que ça charge (20 secondes environ), j'aimerai qu'une msgbox s'ouvre avec quelque chose (n'importe quoi), qui montre l'avancement du traitement en cours, puis que cette fenêtre se ferme une fois le compteur arrivé au bout et qu'alors ma page statistiques s'ouvre.
ps : dans aucun cas je ne touche à excel, il reste non visible durant toute la durée de la procédure, je ne gère mon application qu'avec une interface vb.

J'ai mis l'userform dont je te parlais sur ce site.
Lorsque tu le fichier Charg.frm.txt retire le .txt avant de sauvgarder.
il sera surement à adapter a tes besoins.
les Run "Mac1" etc.. sont les procedures

http://www.cijoint.fr/cjlink.php?file=cj200906/cijjmwAENF.txt

merci pour .txt, j'ai fait comme tu m'a di, renommé en Charg.frx, mais je dois bien avouer que ce qu'il y a dans ce .txt, je ne le comprend pas.... Que dois-je faire avec?, qu'est-ce quie cela représente ?

importe le par VBA project

J'ai regardé tout ça et finalement j'ai trouvé une solution à mon problème, j'ouvre deux userforms, une qui fait le traitement, l'autre avec un timer et une progressbar (j'ai appris à m'en servir !). Il ne me reste plus qu'à faire se lancer les 2 en même temps, ce qui pour l'instant reste un problème, mais je cherche.
Merci à tous de vous être décarcassé comme ça !

bjr ,
alors justement j en suis arrivé moi aussi a la meme étape , de mettre les 2 en meme tps la barre de pregression et le traitement , stp si tu arrive a trouver quelque chose fait moi signe et moi de meme .

Ben, pour l'instant j'en suis resté au même niveau, il doit y avoir un moyen, c'est sûr, mais c'est vraiment compliqué pour une si petite chose !