Discussion :

[peaceandloveman01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais 1s c'est trop long!!! 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...
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 (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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[peaceandloveman01]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Public Declare Function GetTickCount& Lib "kernel32" ()

Aurais-tu une idée pour éviter ce genre d'inconvénient ?
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...

Merci encore et bonne jounrée !!

Lyonel

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Public Declare Function GetTickCount& Lib "kernel32" ()

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

DoEvents

?

[ouskel'n'or]

Tu devrais jeter un oeil là, le fichier joint affiche le temps qui passe par une toupie fabriquée à la main , 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+

[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