Bonjour,
Excusez mon temps de réponse tardive.... Tout fonctionne très bien et je vous en remercie.

Bonjour à tous,

J'ai essayer de combiner en un seul fichier les deux sujets que j'ai posté précedement à savoir :

- le timer : www.mdf-xlpages.com/modules/ne ...

- le bouton pause : www.mdf-xlpages.com/modules/newbb/viewtopic.php

Ma pause de 10s se fait bien, par contre lors de la reprise automatique les compteurs comtabilent ce temps soit :
Le dépassement passe de "0:10:50" à "0:10:40"
Le cycle de "0:00:10" à "0:00:20"

Je vous joins un fichier qui vous permettra de mieux comprendre ma demande, et je vous remercie par avance pour votre aide.

Bonjour,

En effet, ta solution est nettement plus simple... encore un problème de logique !!!
Merci pour les conseils d'utilisation et les appréciations.

... J'ai trouvé cela mais je ne sais pas si c'est la bonne solution ...

Met la valeur 0 à D110 à l'ouverture du classeur.

Private Sub Workbook_open()
'Remet la valeur 0 dans la cellule D110 pour permettre l'execution de la macro du bouton.
[D110].Value = 0

End Sub

Du coup, j'ajoute une variable x qui prend la valeur de D110 et qui ajoute 1 et qui ensuite donne cette nouvelle valeur à D110.
Je met une condition sur l'execution de la macro que si la valeur de D110 est = 1

Sub Pause10s_Clic()
'
' Macro pour un pause de 10 secondes
'
Dim x As Integer
x = [D110].Value + 1
[D110].Value = x

If x = 1 Then
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10

waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime
Else: MsgBox "Trop de pause !!!"
End If

End Sub


Du coup cela fonctionne mais ce n'est peut être pas le plus simple....
Je progresse .... :)

Bonjour,

Suite à l'aide que vous m'avez apporté sur le timer (http://www.mdf-xlpages.com/modules/ne ... ?topic_id=600&forum=4 ), je recherche comment faire pour désactiver un bouton après l'éxecution de la macro auquel il est associé jusqu'à la réouverture du fichier Excel.

Par exemple, si j'ai un bouton "Pause de 10 secondes" (...et oui faut bien soufflé un peu de temps en temps ... ) sur ce bouton j'ai mis le code : (voir fichier joint)

Sub Pause10s_Clic()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub


Que faut-il ajouter SVP pour m'empêcher de faire plus d'une pause de 10 secondes par ouverture de ce fichier?
Avec un message, qui par exemple dirait "Pause déjà éffectuée !!! " et le bouton qui changerai de couleur du bleu au gris.

Merci par avance.

Bonjour,

Désolé pour ces mauvaises utilisation du forum de ma part ... Je ne le ferais plus.
Merci encore pour cette réactivité à toute épreuve ainsi que la correspondance pafaite au problème posé.

Je vais noté de ce pas résolu.

Merci et bonne journée.

... Qu'elle réponse rapide !!!

Merci énormement...Je vais étudier tout cela et je reviens vers vous pour mes impressions ou mes questions.
Merci encore.

Je viens de regarder, je crois que c'est surtout la logique pour tourner le problème dans le bon sens qui est essentielle...et bien sure un peu de langage VBA.

Franchement, IMPEC !!!

Du coup, j'en profite et continue à vous solicitez.... 

J'ai créé une macro qui sauvegarde les colones D et E vers une autre feuille et je voudrais que cela se fasse automatiquement sur pression du bouton RAZ ou à la fermeture du classeur et pour compliqué un peu si cette nouvelle feuille peut prendre la date et l heure du jour c'est le top ...

Bonjour à tous,

Je débute sur Excel (et surtout côté développement VBA ..) et je suis arrivé ici suite à une recherche de chronomètre.
Je cherche à faire une feuille Excel avec un timer un peu spécial.
Il me faudrait un bouton permettant de lancer un redémarrer le chrono à 0 et un pour l'arrêter.

En fait cela me servirai à calculer un temps total de dépassement sur plusieurs cycle de 45 mn dans une journée.

Je pensai à une feuille de calcul qui aurait cette forme :


Cycle en cours              ==> "Timer hh;mn;ss" (jusqu'à 00:45:00)
Temps de dépassement ==> "Cumul des dépassements des 45mn" 

Pour essayer de mieux m'expliquer, je vais prendre un exemple :

Alex ouvre son fichier et clic sur "START" pour faire démarrer le 1er cycle. A la fin de sa manip, au bout de 50mn, il clique sur "Redémarrer" pour lancer le 2eme cycle. De même pour lancer le 3eme cycle au bout de 35mn et sur "STOP" à la fin de son 3eme cycle au bout de 70mn.
Ce qui donne :
1er cycle : 50mn / 45mn = 5mn
2eme cycle : 35mn / 45 mn = - 10 mn
3eme cycle: 70mn / 45 mn = 25mn (il est fatigué au 3eme ... :) )
La case en face de Total dépassement devrait afficher : 00:20:00 afin de cumuler tous les cycles...

J'espère que j'ai été clair car j'ai besoin d'aide... C'est pas évident quand on y connait rien ... !!!

Merci par avance à ceux qui voudront bien m'aider avec ce casse tête ....