OnTime en VBARésolu

Question

Bonjour à Tous !

J'ai un programme en VBA Excel 2003 à faire pour mon boulot, sachant que les utilisateurs ne connaissent rien en informatique, pour me la péter, j'ai mis un OnTime toutes les secondes qui affiche l'heure dans un Label de mon UserForm :

Sub AfficheHeure()

CowBoy = Now + TimeValue("00:00:01")

DateN = Format(Date, "dddd dd mmmm yyyy")
HeureN = Format(Time, "hh:mm:ss")
    
    frmSaisie.lblDateHeure.Caption = DateN & " " & HeureN

Application.OnTime CowBoy, "AfficheHeure", , True

End Sub

Sub ArreteHeure()

On Error Resume Next
Application.OnTime CowBoy, "AfficheHeure", , False

End Sub

Ma 1ere question est "pourquoi lorsque ma procédure ArreteHeure s'execute, le code continue quand même ?

2nde question : "cette fonctionnalité est obsolète, c'est plus pour faire style, maintenant ce que je souhaiterai savoir c'est si ça utilise beaucoup les ressources du PC et la mémoire (sachant que le PC, c'est pas une flêche) ?

Merci et bonne matinée !

Mortalino

Polack77 · Accepted Answer

Je vine de faire un test en d&#233;clarant la variable CowBoy en global et le stop marche bien. Je te met le code :

avec ca ArreteHeure se stop bien.

'--------------------------------------------------------------------------------------------
Private CowBoy As Date

Sub AfficheHeure()

CowBoy = Now + TimeValue("00:00:01")

DateN = Format(Date, "dddd dd mmmm yyyy")
HeureN = Format(Time, "hh:mm:ss")
    
    frmSaisie.lblDateHeure.Caption = DateN & " " & HeureN

Application.OnTime CowBoy, "AfficheHeure", , True

End Sub

Sub ArreteHeure()

On Error Resume Next
Application.OnTime CowBoy, "AfficheHeure", , False

End Sub
'----------------------------------------------------------------------------

Bonne fin de journ&#233;e (et tres tres bon week end)

D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Salut pour une fois c moi qui te file un coup de main (et &#231;a ca me fait plaisir)
Je vien de faire des test et effectivement ca me fait pareil. Pour contourner le probl&#233;me peut tu te d&#233;larer une variable global Boolean Faire une fonction StartHeure qui passe cette variable &#224; vrais mettre dans ta fonction ArreteHeure &#224; faux et modif ta fonction de cette fa&#231;on :
Sub AfficheHeure()
if BoolHeure then
CowBoy = Now + TimeValue("00:00:01")

DateN = Format(Date, "dddd dd mmmm yyyy")
HeureN = Format(Time, "hh:mm:ss")
    
    frmSaisie.lblDateHeure.Caption = DateN & " " & HeureN

Application.OnTime CowBoy, "AfficheHeure", , True
end if
End Sub

Je fait des tests mais logiquement &#231;a devrais aller.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Par contre au niveau ocupation de la machine tu peut le voir dans "Gestinaire des taches" (si tu &#224; un Windows r&#233;ssant) mais de toute facon ca ne dois vraiment pas &#234;tre violant

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Je suis entrain de me demander ta variable CowBoy est cr&#233;e en global ou en local car si pas cr&#233;e en code elle est cr&#233;e par le compilateur en local (juste pour la fonction) et est d&#233;salouer &#224; la fin de cette fonction (dim CowBoy as date). C'est peut &#234;tre pour ca que ton stop ne passe pas???

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

Salut Polack et merci pour ton coup de main !
(je t'aurai bien aidé hier pour ton problème avec Word mais je voyais pas de soluce...)

Bref, pour le "cowboy", je l'ai meme pas déclarer.
(je m'y atèle)
Pout ton BoolHeure je vais effectivement le tester, sachant que cette procédure qui affiche la date et heure dans la Label s'exécute dès l'ouverture du classeur (car le UserForm s'affiche à l'ouverture)

Pour infos, j'ai Win XP donc je vérifierai la courbe de performance de l'UC, sachant que je viens de voir mon Admin réseau de ma société qui me dit que ça ne bouffe pas trop de ressources)

Je te tiens au courant et encore Merci (ça me fait plaisir aussi !)

Mortalino

Polack77 · Answer

Je suis entrain de me dire que c'est bien mieu si tu d&#233;clare tes
varaiables car si c'est le compilateur qui te les d&#233;lares alors ce sont
des types Varian (et cas c'est lourd en m&#233;moire).

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

Ca y'est je l'ai déclarer en "Date".

J'ai adapté le type Boolean mais cela ne me change rien. Quand le UserForm se ferme, j'ai ma procédure d'arret qui s'exécute, le problème persite, c'est meme bizarre : apres avoir fermé le userform, (par Unload), je fais Alt F11 pour accéder a l'éditeur, je ne peux plus voir mon UserForm, quand je le fais s'afficher, entre 1 à 3 secondes, il affiche le module où sont stockés les procédures OnTime, et dans la barre bleue, en haut, le texte passe d'"Arret procédure" à "Exécution en cours", bien que je click sur le bouton STOP.

Qu'est ce que c'est !! Meme un virus tu peux l'arreter + facilement que ça...

Vraiment étrange.

Mortalino

Polack77 · Answer

Dans ta fonction tu lui dit de se re-lanser une second plus tard. Si tu utilise le boolean pour lui dire de ne plus se re-lanser elle contignue???? C'est tres etrange! je fait des tests pour voir ce que l'on peut faire. Tu &#224; d&#233;fini ta variable date en global ou dans une fonction? Pour d&#233;clarer une varible global tu la d&#233;lar &#224; l'exterieur de toute fonction (ou sub)
Pour d&#233;clarer une var globale :
Private NomVariable as TypeVariable (Accesible uniquement du module)
Public  NomVariable as TypeVariable (Accesible dans tout le projet)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

mortalino · Answer

Royal mon ami !

Ma variable était déclaré dans la même procédure, là en global c'est nickel (va savoir pourquoi ...)

Ben je te souhaite un bon WE à toi aussi et charge de revanche.

Mortalino

Polack77 · Answer

Vue que tu travail en temps r&#233;el m&#233;fi toi il est peut &#234;tre possible que ta fonction AfficheHeure soit en cours d'exection quand tu fait ton stop et pour peut que se soit entre le momant ou tu d&#233;fini CowBoy et ou tu fait ton ontime ta fonction ne vas pas se stoper (bas oui vue que tu fait ton ArreteHeure avant ton "Application.OnTime CowBoy, "AfficheHeure", , True") pour aviter ce probl&#233;me tu peut faire &#231;a (&#224; vrais dire je ne sait pas si c'est vraiment utile mais on ne sait jamais):

'--------------------------------------------------------------------------------------------
Private CowBoy As Date
Private FlagAfficheHeureEnCours as boolean

Sub AfficheHeure()

FlagAfficheHeureEnCours = true

CowBoy = Now + TimeValue("00:00:01")

DateN = Format(Date, "dddd dd mmmm yyyy")
HeureN = Format(Time, "hh:mm:ss")
    
    frmSaisie.lblDateHeure.Caption = DateN & " " & HeureN

Application.OnTime CowBoy, "AfficheHeure", , True

FlagAfficheHeureEnCours  = false

End Sub

Sub ArreteHeure()

do while FlagAfficheHeureEnCours 
loop 'Ne sortira de cette boucle que quand FlagAfficheHeureEnCours sera &#224; false (Attention ca rique d'ocuper ton pros!!!!)

On Error Resume Next
Application.OnTime CowBoy, "AfficheHeure", , False

End Sub
'----------------------------------------------------------------------------

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Si tu d&#233;fini une variable dans une proc&#233;dure elle est d&#233;trute &#224; la fin de cette proc&#233;dure donc tu perd la valeur contenu.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

rvblog · Answer

Salut 647037 mortalino, salut =727152 Polack77, en fait, comme le dit Polack77, la portée d'une variable locale d'une procédure est : la procédure (et sa durée de vie aussi). Je rajoute: la portée d'une variable de niveau module (tout bloc de code en dehors d'une procédure ou d'une fonction, et de préférence au début du module [ici, un module est un panneau de code, donc module standard (*.bas), module de classe (*.cls) ou formulaire (*.frm)]) est : le module si elle est privée, le projet si elle publique, les projets si elle est globale (d'autres instructions peuvent contredire cela, par exemple : option private module). Conseil : en règle générale, en POO, on n'utilise des variables globales (ou publiques) que lorsque c'est strictement nécessaire. En effet, le principal inconvénient de ces variables est qu'on ne sait jamais qui a écrit dedans, quand, ou si la valeur a changé ou non. Maintenant, au niveau de l'utilisation que tu fais de la méthode OnTime, je souhaite te faire prendre conscience d'un fait important (à mes yeux, en tout cas). Sais-tu exactement ce qu'il se passe lorsque tu décharges ton formulaire, sans arrêter la programmation de la tâche? Si tu veux le savoir, lances ton formulaire, mets l'heure en route, et fermes-le. Ensuite, va dans le code, et mets un point d'arrêt dans la procédure AfficheHeure, et observes (tu va reconnaître quelque chose que tu as sûrement déjà vu). Tu vas peut-être me répondre qu'il n'y a pas de risque, car tu exécute AfficheHeure dans le UserForm_Initialize (ou Workbook_Open), et que tu exécutes ArreteHeure dans le UserForm_Terminate (ou Workbook_BeforeClose)! Le problème est que tu n'es pas sûr que ArreteHeure a bien fait son travail, et ce, à cause du On Error Resume Next. Et là, en plus, je répond à ta question initiale : "pourquoi lorsque ma procédure ArreteHeure s'execute, le code continue quand même ?" Enlèves le On Error Resume Next et VB te le dira! C'est pas parce qu'on ne comprend pas un message de VB que la solution de le nier (On Error Resume Next) est la bonne! Dès le début, VB te signalait qu'il n'arrivait pas à "dé-programmer" la tâche "nommée" valeur de CowBoy (lis l'aide, et tu comprendras ce que j'entends par "nommée"). Et pour cause, il existait 2 variables déclarées implicitement en variant, une dans chacune de tes procédures (aucune ne voit l'autre, et aucune ne subsiste à la durée de vie de chaque procédure). Enfin, pour le type de la déclaration de CowBoy, ne te prends pas la tête à le déclarer en Date, dans le prototype de OnTime, c'est un variant qui est attendu, ça limitera les cast. C'était la minute (les 10 minutes) culture/confiture. Pour ceux qui ne connaissent pas, ça vient de : La culture, c'est comme la confiture, moins on en a, plus on l'étale :) à+ vous deux, rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

mortalino · Answer

Salut rvblog,

Merci pour ta minute culture, et je confirme, que suivant comment le UserForm s'arrete, la tâche continue. Toutes tes précisions m'ont été utiles à la réalisation de ce OnTime, qui fonctionne royalement.

Tu as eu mon bien et je t'en remercie.

Mortalino

OnTime en VBA

13 réponses

Discussions similaires