[VBA] [resolut]Standby Please... en excel

Standby Please... en excel [VBA] [resolut] - VB/VBA/VBS - Programmation

Marsh Posté le 15-06-2005 à 15:33:48    

salut je susi en train de faire un programme qui va scanner la sa base de donner a son demarage. Vu que ca pourait etre long (grosse base de donner) mon boss ma demander de faire un standby avec des petit point qui aparaises et disparaises. moi j'ai trouver ca cool et facile sur le moment mais dés que j'ai mis le formulaire en marche automatiuqe donc sans passer par F8 mes petits point ben ils aparaissait plus du tout en vitesse reel.
 
donc voilas ma question existe il un moyens plus sur de faire ce genre de prog?
 
et voici dessous ce que j'ai fait:
 
While Feuil2.Range("A" & bnum).Value <> "" ' boucle de lecture base
 
        If Label2.Caption = "* * * " Then Label2.Caption = "" ' si y a 3 point vider label2
 
           If Point = bnum Then 'bnum = variable de la lecture base
                 
            For visu = 1 To 5000 ' visu c'est une variale qui sert a rien mais qui me servait a passer le temps
 
            Next visu
             
            Label2.Caption = Label2.Caption & "* " 'apparition dans label2
             
            Point = Point + 2 prochaine condition pour mettre un point
 
            End If
...
 
@++


Message édité par stagiaire6 le 15-06-2005 à 18:05:25
Reply

Marsh Posté le 15-06-2005 à 15:33:48   

Reply

Marsh Posté le 15-06-2005 à 15:47:10    

Apparement tu passe ta feuille séquentiellement. Pourquoi pas un pourcentage ?
 
J'ai déjà fais ca mais bon des fois ca bug (le form reste figé très souvent après une 30aine de secondes d'exécution...)
 
C'est exactement le même principe que ton code
 

Code :
  1. For i = 1 to NbLines
  2.     perc = (100 / NbLines) * i
  3.     form_wait.lbl_file.Caption = perc & " %"
  4.     [...]
  5. Next i


Message édité par dough29 le 15-06-2005 à 15:48:04
Reply

Marsh Posté le 15-06-2005 à 15:56:02    

Salut,
 
Place un "Doevents" avant le "Next" pour que le programme redonne la main aux autres actions avant de continuer avec la prochaine valeurs de i.
 
A+

Reply

Marsh Posté le 15-06-2005 à 16:01:51    

dough29 salut et merci de ta reponce mais j'ai une petite question il faudrait pas cannaitre el nombre de ligne avant de faire ca???
 
Jerome-gmc super mais je vois pas la difference... @++ tout le monde

Reply

Marsh Posté le 15-06-2005 à 16:03:48    

Si bien évidement.
 
Moi j'utilise Workbooks("classeur" ).Worksheets("feuille" ).UsedRange.Rows.Count

Reply

Marsh Posté le 15-06-2005 à 16:13:11    

cool ca me marque 100 dans mon label mais y a pas de progretion qui ce fais.
 
enfin ca fait toujour une fonction de excel en moins a chercher.
 
comment je peut faire pour faire une animation qui sert juste a faire patienter l'utilisateur???
 
@++

Reply

Marsh Posté le 15-06-2005 à 16:58:04    


Voici le lien pour télécharger une progress bar, adapte la à ton cas:
http://vlohr.free.fr/veriti/downlo [...] =fr&pg=356

Reply

Marsh Posté le 15-06-2005 à 17:30:11    

youpie j'ai trouver a koi sert doevents... et j'ai trouver comment faire des progresse bar et des pourcentage c'est trop cool merci a tous je vous aime ...
 
pfff c'est l'heure d'allez au dodo la parce cerveau a brule chaud...  
 
@++

Reply

Sujets relatifs:

Leave a Replay

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