chronometre avec Excel

MJ13

XLDnaute Barbatruc

• 16 Février 2015

• #2

Re : chronometre avec Excel

Bonjour Pitou

Dans un premier temps, fait une petite recherche sur le site (c'est la loupe en haut à droite).

Ce thème a souvent été abordé.

 

Vote positif 0 Vote négatif

P

pitou007

Guest

• 16 Février 2015

• #3

Re : chronometre avec Excel

Bonjour MJ13,

J'ai regardé, mais ne maitrisant pas VBA, je n'arrive pas à transposer l'exemple à mon cas.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 16 Février 2015

• #4

Re : chronometre avec Excel

Re

Ok, dans ce cas, le mieux est de joindre ton fichier avec ce que tu veux.

 

Vote positif 0 Vote négatif

P

pitou007

Guest

• 16 Février 2015

• #5

Re : chronometre avec Excel

Merci,

Alors je voudrais que quand j'appuis sur le bouton un compteur décrémente (de 15mn à 0) en cellule N3.
Une fois à 0, un message s'affiche en disant que le fichier va se fermer.
Que le fichier s'enregistre et se ferme.

Merci par avance de ton aide

 

Pièces jointes

• Test.xlsx

  22.3 KB · Affichages: 83
• Test.xlsx

  22.3 KB · Affichages: 83
• Test.xlsx

  22.3 KB · Affichages: 103

Vote positif 0 Vote négatif

P

pitou007

Guest

• 17 Février 2015

• #6

Re : chronometre avec Excel

Bonjour à tous,

Est ce que quelqu'un peut me donner un petit coup de main sur mon fichier ??

Merci à vous
@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 17 Février 2015

• #7

Re : chronometre avec Excel

Re

Bon, en 2009, j'avais fait un petit chrono qui vient se loger dans la barre d'outils Complément.

A voir, si c'est adaptable 🙂.

 

Pièces jointes

• Chrono_Dans_Barre_Outils_MJ_V3.xls

  101.5 KB · Affichages: 157

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 17 Février 2015

• #8

Re : chronometre avec Excel

salut

pour une simple attente, la cellule déclinante étant formatée en mm:ss, macro associée au bouton :

Code:

Sub oups()
   [N3] = "15:00" 'choix de la durée 
    Do
      Application.Wait (Now + TimeValue("00:00:01"))
      [N3] = [N3] - CDate("00:01")
    Loop Until [N3] = 0
    MsgBox "le classeur va se fermer !", 16, "Attention..."
    ThisWorkbook.Save
    ThisWorkbook.Close
 End Sub

 

Pièces jointes

• Minuterie.xlsm

  28.4 KB · Affichages: 94
• Minuterie.xlsm

  28.4 KB · Affichages: 96
• Minuterie.xlsm

  28.4 KB · Affichages: 117

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 17 Février 2015

• #9

Re : chronometre avec Excel

Re, Bonjour Si

Le problème avec ton code, c'est qu'on ne peut rien faire.

Alors qu'avec application.ontime, tu peux travailler sur la feuille.

D'ailleurs un des problème de mon fichier, c'est que si on ouvre un autre classeur, le chrono s'arrête 😕.

Si quelqu'un pouvait voir où se trouve le problème?

Merci d'avance 🙂.

 

Vote positif 0 Vote négatif

P

pitou007

Guest

• 19 Février 2015

• #10

Re : chronometre avec Excel

Merci pour vos retours.
La solution de Si... correspond exactement a mon besoin!
Le truc c'est que le classeur est inutilisable !!

Si quelqu'un a une idée !!

Merci encore

 

Vote positif 0 Vote négatif

p56

XLDnaute Occasionnel

• 19 Février 2015

• #11

...

 

Dernière édition: 15 Septembre 2020

Vote positif 0 Vote négatif