Standby Please... en excel [VBA] [resolut] - VB/VBA/VBS - Programmation
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 :
|
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+
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
Marsh Posté le 15-06-2005 à 16:03:48
Si bien évidement.
Moi j'utilise Workbooks("classeur" ).Worksheets("feuille" ).UsedRange.Rows.Count
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???
@++
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
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...
@++
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