TIMER impossible de l'arrêter !

[Blandine]

Je n'arrive pas à arrêter le timer en mémoire :

exemple, au lancement le timer s'affiche,

cliquez sur le bouton "heure", immédiatement

la fenêtre de l'heure s'enlève et apparaît

la fenêtre "choix"

Sélectionne "saisie dans celulles" puis "OK"

le prog. revient dans une feuille excel.

Ouvrir Visual sur le projet

et là dans la barre de visual à côté du

nom du projet on voit s'afficher très rapidement

je dirais plutôt clignoter l'information

< exécution en cours >


MERCI pour vos suggestions...
Blandine

 

[Gérard]

Bonjour Blandine,

Il est bon parfois de laisser certain classeur avec l'accès au code en OpenSource cela permet aux utilisateur d'y trouver plein d'infos et de code clés en main.

Dans ton classeur et dans le userForm j'y est ajouter le code suivant et ça marche correctement dans "TimerGM1.zip"

'Quant on clique sur le UserForm appel
'de la procédure ArrêterHorloge
'-------------------------------------
Private Sub UserForm_Click()
On Error Resume Next
Call ArrêterHorloge
Unload Me
End Sub

A+ G.M

 

[Blandine]

MERCI pour cette approche de la solution finale :

En effet le timer s'arrête BIEN mais le UserForm du timer reste affiché en arrière plan dès que l'on passe en mode affichage feuille !

Je te rappelle que le timer doit s'arrêter dès le clic sur le BOUTON "HEURE" situé dans l'autre formulaire "MENU_GENERAL" qui doit en même temps afficher le 3ème formulaire "CHOIX" afin d'aller ensuite voir une feuille.

et tout ça en seulement un clic sur ce bouton "HEURE" pour l'utilisateur

MERCI de bien vouloir continuer à m'aider !
Blandine

 

[Gérard]

Re,

essai ce nouveau fichier je pense que ton problème est résolu a moins que !


Private Sub OK_Click()

If Option1.Value = -1 Then
Unload Choix
Choix.Hide
Menu_Général.Hide
Unload Menu_Général
Menu_Général.Show

'Pourquoi tu demande de réafficher le timer
'sinon il ne peut pas être en arrière plan
'Heure.Show
'met plutôt ça
Heure.Hide
Unload Me
End If

If Option2.Value = -1 Then
Unload Choix
Choix.Hide
Menu_Général.Hide
Unload Menu_Général
Sheets("Feuil1").Select
End If


End Sub

 

[Blandine]

Superbe c'est exactement ça !

Un grand MERCI à toi Gérard

BLandine


PS: Est-ce que tu as vu mes autres post :
(si tu pouvais faire qqe chose...)

> Déprotéger PROJET pour Module Ajout du 19 oct.
(pour mise à jour de projet sur pc distant.)


> Module Numérotation lignes du 18 oct.
(pour afficher en cas d'erreur VBA le no de ligne exacte dans le code.)