Probleme de temporisation

Version imprimable

27/06/2007, 11h16
peaceandloveman01

Probleme de temporisation

Bonjour à tous,

Pour mon projet, j'aimerais afficher un userform montrant que le calcul est en cours avec une barre de progression. Le problème est que vba "zappe" l'affichage de l'userform ainsi que l'evolution de la barre de progression. J'ai donc pensé à utiliser ceci:

Code:

Application.OnTime Now + TimeValue("00:00:1"), "my_Procedure"

Mais 1s c'est trop long!!! :roll: J'aimerais attendre 1ms avant de déclencher la prochaine étape de calcul (qui se décompose en 7 étapes distinctes). :?
J'ai pensé au Timer mais je n'arrive à l'utiliser comme il faut... :oops:
L'idée est d'afficher l'userform dès l'ouverture de la macro avec la progressbar à 0, puis de lancer successivement les étapes du calcul avec entre chaque étape le rafraichissement de l'userform et de sa progressbar.
Le code que j'ai fonctionne très bien! :) Mais je me suis cassé la tête :bug: (avec votre aide par ailleurs) pour optimiser la durée des calculs. Ce n'est donc pas pour perdre du temps avec l'affichage d'un userform... J'espère être assez clair ! :?
En résumé, je veux juste pouvoir temporiser mon application pendant 1ms entre deux procédure.

Pouvez-vous m'aider ???

Merci d'avance

Lyonel

1 ms, je n'y crois pas mais je t'offre 16 ms :lol:
Code:

1 2 3 4 5 6 7 8 9 Public Declare Function GetTickCount& Lib "kernel32" () Sub TestMs() Dim Depart As Double, Arrivee As Double Depart = GetTickCount& Do While GetTickCount& < Depart + 1 Loop Arrivee = GetTickCount& - Depart MsgBox Arrivee End Sub
En attendant qu'un Application.Wait(Now + TimeValue("0:00:00:001")) nous soit révélé ;)

27/06/2007, 11h58
peaceandloveman01

je travaille sur un pc dans mon entreprise et je n'ai pas l'autorisation d'utiliser:

Code:

Public Declare Function GetTickCount& Lib "kernel32" ()

:bug:
Aurais-tu une idée pour éviter ce genre d'inconvénient ? 8O
En tous les cas merci pour ta réponse. Dès que je pourrais l'essayer sur mon pc personnel (c'est à dire ce soir) je te ferais savoir ce que ça donne... :D

Merci encore et bonne jounrée !! :king:

Lyonel
27/06/2007, 12h10
ouskel'n'or

Citation:

je n'ai pas l'autorisation d'utiliser:

Code:

Public Declare Function GetTickCount& Lib "kernel32" ()

Aurais-tu une idée pour éviter ce genre d'inconvénient ? 8O

Alors tu n'arriveras à rien si tu n'as pas ce type de possibilité. Il faut bien que tu aies accès à un dll pour faire ça, sans quoi VBA Excel se retrouve tout nu avec son wait en seconde ou son timer itout...
J'ignore ce que tu veux faire d'une ms mais as-tu essayé

Code:

DoEvents

?
27/06/2007, 12h13
ouskel'n'or

Tu devrais jeter un oeil là, le fichier joint affiche le temps qui passe par une toupie fabriquée à la main :mouarf: , peut-être celà te donnera-t-il une idée. Dans la procédure d'affichage, je crois me souvenir que j'utilise un simple compteur (For i = 1 to ...)
A+
28/06/2007, 14h32
peaceandloveman01

merci pour tout ! C'est assez incroyable mais je n'ai pas accès a tout les dll nécessaire sous VBA pour certaine appli... A vrai j ai mm pas le droit d'utiliser les ports usb de mon pc pour vous dire le niveau de sécurité auquel je suis soumis ... En tous cas la toupie faite maison fonctionne tres bien. Merci beaucoup :king: