Figer l'heure dans une varible

[Sylvain]

Bonjour le forum.
J'ai besoin dans VBA de marquer l'heure à la seconde près dans plusieurs endroit.
Le problème c'est que le temps que le code s'exécute ,j'ai une différence d'une à deux secondes.
Est il possible de figer l'heure dans une variable?

 

[herve]

bonjour,

tu dois faire appel a la fonction time non?

essaye de créer ta propre variable par exemple

monheure=time

cela fige ainsi l'heure,

puis dans chaque endroit où tu veux la synchro tu rappelles ta variable
monheure et non time...


J'espere que cela t'aidera..

@+

 

[SYL]

C'est ce que j'ai essayé au départ,mais le problème est qu'avec MonHeure = Time la variable bouge en même temps que l'heure.
Merci tout de même.

 

[Moa]

Et en donnant à la variable non pas l'heure, mais la valeur d'une cellule, qui elle pourrait avoir l'heure figée avec un "Paste/Value".

@ +

Moa

 

[Roland]

Bonsoir à tous

Peux-tu préciser si les différents endroits d'utilisation le seront systématiquement ou si seuls certains le sont à chaque fois.

Si c'est le premier cas tu pourrais faire le transfert de time dans un tableau() de longueur égale au nombre d'utilisations.
A chaque endroit d'utilisation tu te servirais d'un élément différent du tableau en prenant soin de remettre cette élément à zéro.
Si tu conditionnes le transfert de time au fait d'avoir zéro dans tout le tableau tu garantira l'unicité de cette valeur.

Cela fait un peu usine à gaz mais en attendant mieux.

A+ Roland

 

[herve]

bonjour

ci joint une boucle dans laquelle ma variable mon heure ne bouge pas!

Sub toto()
monheure = Time ' valeur de ma variable
Sheets("Feuil1").Select
Range("a1").Select
For i = 0 To 10 'boucle pour perdre du temps
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = monheure
MsgBox monheure 'encore un peu de temps perdu
Next i
End Sub

mon heure ne varie pas, et pourtant cela dure autant de temps que l'on veut...

la valeur monheure ne doit etre "chargée" qu'une seule fois.
Il te faut seulement la declarer si tu veux t'en servir d'un module sur l'autre,
et dans ta procedure te servir de la valeur sans la recharger..

pour moi cela marche...

Et pour toi??

@+ herve

 

[syl]

Merci pour l'aide.
Mon problème est résolu.
Cordialement

 

[herve]

salut!

ce serait sympa de nous dire comment tu as fait!

a savoir que tu as peut etre une idee nouvelle qui nous servira...


@+

Hevré

 

[Roland]

Bonsoir
Je m'associe à la requête d' Hervé .......
Roland

 

[syl]

Bonjour et excusé moi du retard.
Dans mon application j'écri l'heure à un instant T à trois endroits différents.
Le problème que j'avais c'est qu'en écrivant MonHeure = Time et en me servant de la variable MonHeure comme dans l'exemple ci après:
Range("D2").value=MonHeure
code.....etc
Range("B10").value=MonHeure
code.....etc
Range("F2").value=MonHeure
Le temps que le code s'exécute j'arrive à avoir de temps en temps une différence de une seconde.
En chargeant l'heure dans une cellule comme vous le faite,le problème est résolu.
Range("D2").value=Time
MonHeure=Range("D2").value
code.....etc
Range("B10").value=MonHeure
code.....etc
Range("F2").value=MonHeure
Merci encore de votre aide.