Chronométrage sous Excel

Bonjour à tous, et meilleurs voeux. ;-)

je souhaiterais avoir une feuille excel avec un décompte qui commencerait à 00:45:00(paramétrable si possible).

lorsque celui ci approche des 00:05:00, j'aimerais que les chiffres deviennent rouge jusqu'à 00:00:00.

Il faudrait un bouton qui démarrerait ce décompte "Départ" et lorsque ce bouton sera enclenché, il remettrait automatiquement le compteur à la valeur paramétrée (dans notre cas 00:45:00). s'il reste 3 minutes et que ce bouton est activé, il réinitialise ce compteur.

lorsque ce compteur est réinitialisé, celui ci est masqué pendant les 5 premières minutes par un message sur la feuille marqué "Départ" avec un fond vert écrit blanc...

tout ceci (45 min, texte, couleur...) pourra être paramétrable dans le VBA.

Pensez-vous cela possible?

Merci d'avance.

Bonsoir,

Un début de réponse. A vous de l'améliorer et de le mettre à votre goût.

Bonjour THEV?

merci pour ton aide;

la fonction chrono est nickel.

comment faire pour rajouter tous les messages et les couleurs et réglage du temps?

DE +? est ce possible de pouvoir agrandir cet affichage pour qu'il soit en pleine page?

merci pour votre aide. ;-)

Bonjour à tous,

Un besoin en +... est-ce possible dans une autre feuille de lister les heures ou on appuie sur "INIT"?

Merci d'avance.

Bonjour à tous,

est-ce possible dans une autre feuille de lister les heures ou on appuie sur "INIT"?

Un truc du genre...

Private Sub RESET_Click()
    With Sheets("Recap INIT") 'nom de la feuille à adapter
     dl = .Range("A" & Rows.Count).End(xlUp).Row + 1 'colonne à adapter
     .Range("A" & dl) = Now 'colonne à adapter
    End With
 Me.Label1 = Format(chrono, temps)
End Sub

Cordialement,

Hello,

merci.

je dois rajouter ça comment dans le CLASSEUR1 que m'a fourni thev?

Re,

1. Il faut d'abord créer le feuille Recap INIT.
2. Ensuite, ouvrir l'éditeur VBA (ALT +F11)
3. Clique sur Feuilles pour voir apparaitre l'Userform
4. Double clic sur l'Userform
5. Double clic sur le bouton INIT
6. Le code est celui du bouton INIT

Cordialement,

Merci,

par contre j'ai un souci Lorsque je fais INIT, mon temps revient à 45min, puis reprend là ou il s'est arrêté.

Exemple:

si le décompte est à 42 min, et que j'appuie sur INIT, il affiche 45MIN, puis la seconde d'après, affiche 41min et 59s et continue le décompte.

Re,

par contre j'ai un souci Lorsque je fais INIT, mon temps revient à 45min, puis reprend là ou il s'est arrêté.

C'était déjà le cas avant...en attendant que thev revienne...un essai de modif....

Private Sub RESET_Click()
    With Sheets("Recap INIT") 'nom de la feuille à adapter
     dl = .Range("A" & Rows.Count).End(xlUp).Row + 1 'colonne à adapter
     .Range("A" & dl) = Now 'colonne à adapter
    End With
 chrono = TimeValue("00:45:00")
 Me.Label1 = Format(chrono, temps)
End Sub

Cordialement,

Bonjour xorsankukai,

Je te passe volontiers le flambeau.

A+

Bonsoir à tous,

@ thev: ta confiance m'honore mais je suis très loin d'avoir tes compétences,

Je me suis juste permis de rajouter le "listing" des heures, et comme tu ne semblais pas dispo, essayé de corriger le petit souci avec INIT.

Je ne voulais pas m'imposer sur le fil,

Amicalement,

Hello Thev et Xorsankukai,

merci pour vos aides.

j'ai fait quelques modification avec tous ce que vous m'aviez demandé et c'est nickel.

un dernière chose.

lorsque j'appuie sur le bouton vert, je dois avoir un message du type "navette en transit" ou autres qui écrase l'affichage du temps qui s'écoule (donc de 00:45 à 00:40).

est-ce possible de le rajouter?

Merci d'avance.

;-)