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