{résolu}Boucle avec indice en pourcentage qui déconne

{résolu}Boucle avec indice en pourcentage qui déconne - VB/VBA/VBS - Programmation

Marsh Posté le 10-08-2006 à 14:24:20    

Bonjour à tous, je veux faire une barre de progression avec un indice en pourcentage mais cet indice ce bloque à 1,14% et mon compteur "a" reste lui à 327.
Dans ce morceux de code "a" est un entier qui monte jusqu'à environ 28000 (entier z). Ma chaine de caractère "percent" reste bloqué sur "1,14%   327" malgrès que "a" continu à augmenter et que ma barre de progression augmente bien...  :pfff:  
Pouvez m'aider s'il vous plaît? Moi je trouve pas là...  :sweat:  
 
Private a As Integer
...
 
Dim z As Integer
Dim percent As String
 
Do
    percent = CStr(Round(((100 * a) / z), 2)) + "%   " + CStr(a)
    UserForm3.Caption = percent
    UserForm3.Show 0
    UserForm3.ProgressBar1.Min = 0
    UserForm3.ProgressBar1.Max = z
    UserForm3.ProgressBar1.Value = a
    UserForm3.Repaint
    UserForm3.ProgressBar1.Refresh
    a = a + 1
 Loop Until a = z


Message édité par zephyron1 le 10-08-2006 à 17:18:56
Reply

Marsh Posté le 10-08-2006 à 14:24:20   

Reply

Marsh Posté le 10-08-2006 à 14:33:26    

pense à initialiser ton z à une valeur, ca vient peut etre de la...

Reply

Marsh Posté le 10-08-2006 à 15:05:10    

mon z est déjà initialisé plus haut car je prends le nombre de ligne que contient mon fichier excel. Mais j'ai quand même rajouté "z = 3000" au dessus et bizarrement "percent" reste toujours bloqué quand "a" à la valeur 327... Pourtant mon a monte bien jusqu'à 3000... Je comprends rien. :fou:

Reply

Marsh Posté le 10-08-2006 à 15:38:14    

Max ne devrait pas dépasser 100  
A toi définir le pourcentage de progression de ton traitement dans une boucle de 1 a 100

Reply

Marsh Posté le 10-08-2006 à 15:52:53    

Je comprends pas ce que tu veux me dire Galopin.  :??:  
Tu veux dire que mon "Userform3.ProgressBar.Max" ne doit pas être au dessus de 100? Mais pourtant ça marche bien, la barre augmente bien malgrès que z soit égale à 28000... J'ai fait la même barre pour plusieurs fichiers et j'ai jamais vu de problème sur ça (enfin ça ne veut pas dire que je ne te crois pas, je suis juste etoné).
 
En cherchant un peu, j'ai trouvé que le problème venait de là : [Valeur>32700] / [z=28500]...
 
J'ai pas un problème de typage par hasard?

Reply

Marsh Posté le 10-08-2006 à 15:56:05    

zephyron1 a écrit :

Je comprends pas ce que tu veux me dire Galopin.  :??:  
Tu veux dire que mon "Userform3.ProgressBar.Max" ne doit pas être au dessus de 100? Mais pourtant ça marche bien, la barre augmente bien malgrès que z soit égale à 28000... J'ai fait la même barre pour plusieurs fichiers et j'ai jamais vu de problème sur ça (enfin ça ne veut pas dire que je ne te crois pas, je suis juste etoné).
 
En cherchant un peu, j'ai trouvé que le problème venait de là : [Valeur>32700] / [z=28500]...
 
J'ai pas un problème de typage par hasard?


ben remplace ton integer par un double =)

Reply

Marsh Posté le 10-08-2006 à 16:02:48    

possible. Je sais pas. J'ai l'habitude de toujours ramener à un pourcentage de cent
 
+1 pour le double
 
Sinon (à moins de pas être pressé) t'es pas obligé de redéfinir toute la progressbar à chaque tour de boucle : le Value suffit.

Reply

Marsh Posté le 10-08-2006 à 16:08:35    

:sol: "Bonne réponse de notre ami jpcheck!"  Bon admets quand même que je t'ai bien aidé avec mon indice... :D  
 
Ben voilà, j'ai changé mes variables "a" et "z" en double et plus aucun problème. Vraiment bizarre ce truc... En tout cas merci Galopin et merci jpcheck.  :hello:  @+
 
EDIT : T'as raison pour la progressbar Galopin, j'y avais pas pensé.


Message édité par zephyron1 le 10-08-2006 à 16:10:19
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed