Application WAIT en VBA

Bonjour
j'utilise

Code:

---

Application.Wait Now + TimeValue("0:00:01")

---

pour attendre 1 seconde dans mon execution de code
est il possible d'attendre moins d'une seconde ? en centieme de seconde par exemple et comment l'eccrire ??? surtout ...???


merci et joyeux noel !!!

mais pas forcément avec précision. Il faudra vérifier.

J'utilisais la fonction API Windows "GetTickCount()" mais il y a parfois des décalages. Petite remarque lors d'acquisitions, il faut absolument éviter de faire des calculs en même temps : le temp des calculs est parfois énorme face au temps d'acquisition (Acquisition toutes les 5ms sans calculs et 35ms avec des calculs simples).

Il existe de nouvelles fonctions Windows plus fiable.
Un expert sur le forum en a parlé il y a quelques temps...

Sinon sous "VB.NET", il y a des fonctions plus précises qui tiennent compte de la fréquence réelle du microprocesseur.

Voir sur MSDN
sinon il y a des codes récents sur un site Anglais :http://www.cpearson.com/Zips/modWait.zip

La question est de savoir quel est votre besoin en précision.

ESVBA

bonjour djoumusic ESVBA le forum. une methode 1 dixieme dans l'exemple a adapter

Code:

---

1 2 3 4 5 6

Sub macro1() Dim s, p As Variant 'ton code1 p = 0.1: s = Timer: Do While Timer < s + p: DoEvents: Loop 'ton code2 End Sub

---

joyeux noel a tous

merci alors comment tu ecrirais.. avec ta proposition...

Code:

---

1 2 3 4 5 6 7 8

'1 Application.Wait Now + TimeValue("0:00:01") Application.SendKeys Range("f47").Value Application.SendKeys "{TAB}" '2 Application.Wait Now + TimeValue("0:00:01") Application.SendKeys Range("g47").Value Application.SendKeys "{TAB}"

---

MILLE MERCI !!!!!

Salut à tous,

si la réponse de laetitia convient, remplace

Code:

---

Application.Wait Now + TimeValue("0:00:01")

---

par

Code:

---

Do While Timer < s + p: DoEvents: Loop

---

sans oublier les déclarations de variables.

Remarques : "Wait" bloque toutes les opérations ou presque. Il n'y aurait pas besoin ici de mettre la fonction "DoEvents". Mais comme la durée est très courte, ça n'a pas d'importance.

ESVBA

Bonjour tou(te)s, salut Leti,
Si tu veux un timer plus précis...
Coller le code ci-dessous dans un module BAS.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Declare Function GetTickCount Lib "kernel32" () As Long Public Const Delais = 600 'Nombre de milli secondes du délais   'Timer milli seconde Sub TimerMS() Dim TP As Long TP = GetTickCount Do While TP + Delais > GetTickCount DoEvents Loop End Sub

---

et ton code deviendrait...

Code:

---

1 2 3 4 5 6 7

TimerMS Application.SendKeys Range("f47").Value Application.SendKeys "{TAB}" '2 TimerMS Application.SendKeys Range("g47").Value Application.SendKeys "{TAB}"

---

Joyeux Noël à tous,
A+
Edit:
Pour info : la fonction Timer ne peu fonctionner que par seconde et pas moins.

Ca semble pas mal du tout!
dis moi un truc,
quand tu me dis de coller le code dans un module bas...
c'est a dire que je creer un nouveau module, et je colle le code...
et dans ma macro ensuite, elle ira chercher la fonction...???
c'est ça ou pas du tout..???

merci

C'est tout à fait ça..;)
Prochaine fois, tu essaye comme tu le sent et si ça va pas alors tu questionne :calim2:

SUPERRRRRRRRRRRRRRRR

CA MARCHE DU TONER !!!!
bravo !!!!!!

puisque j'y suis y a t il un moyen pour determiner le nombre en milliseconde depuis une cellule excel...? du style ( sur la feuil1, cellule a1 en valeur..?

et d'autre part y ' a t il un moyen d'ecrire
Application.SendKeys "{TAB}"
26 fois sans copier la ligne 26 fois ..??

cdt !!!!!!

bonjour djoumusic ESVBA Louis le forum brute comme cela 600milli. en celluel a1

en prenant le code a l'ami Louis

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Declare Function GetTickCount Lib "kernel32" () As Long Sub TimerMS() Dim TP As Long TP = GetTickCount Do While TP + [a1] > GetTickCount DoEvents Loop End Sub

---

Code:

---

1 2 3 4 5 6 7

Sub es() Dim i As Byte For i = 1 To 26 TimerMS Application.SendKeys "{TAB}" Next End Sub

---

par contre je vois pas bien ce que tu cherches a faire avec tous tes SendKeys "{TAB}" ????

personnellement cette instruction je l'utilise vraiment quand je peus pas faire autrement pourquoi pas .offset(0,1) ???

bonjour laetitia, djoumusic, LeForestier et ceux que j'oublie.

J'ai plus simple pour la deuxième question :

Code:

---

SendKeys "{TAB 26}"

---

Voilà.

Après relecture de la première question et de la réponse de laetitia, j'étais complétement à côté en voulant répondre.
A-t-on bien répondu à la question ?

Voyant l'autre post avec les jours de la semaine... Je pense aussi que la solution de l'"offset()" est une bien meilleure solution.

ESVBA

re, j'avais pas vu l'autre post .en fin de compte mon code sert a rien il fait pas 26 {TAB} a la suite avec une tempo entre!!!
d'ailleurs j'ai toujours beaucoup de mal a comprendre la finalite de tout cela
en fin de compte l'instruction offset na pas de sens non plus!!!

en voyant la reponse de l'ami ESVBA sur l'autre post trés bonne analyse d'ailleurs.

Citation:

---

"pointer directement sur la cellule concernee"

---

eventuellement mettre une tempo pour faire "jolie" supprimer tous ces sendkeys qui peuvent poser probleme de fiabilite l'ami Gorfael a bien resumé tous cela

ca citation est trés explicite

Citation:

---

La qualité et la précision de la réponse sont proportionnelles à celles de la question

---

offset est mieux,
mais je pilote une page internet explorer..
et j'ai besoin de faire des "tab"....

et ce n'est pas un formulaire... sinon, j'aurai pu recuperer le nom de inputname....
j'ai pas d'autre solution que d'utiliser des tab...

MERCI