Discussion :

[djoumusic]

Bonjour
j'utilise

Code :

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

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 !!!

[ESVBA]

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

[laetitia]

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

Code :

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

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

[djoumusic]

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

Code :

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

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 !!!!!

[ESVBA]

Salut à tous,

si la réponse de laetitia convient, remplace

Code :

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

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

par

Code :

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

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

[LeForestier]

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

Code :

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

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 :

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

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.

[ESVBA]

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

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

Code :

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

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

[laetitia]

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.

"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

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

[djoumusic]

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