• Initiateur de la discussion Initiateur de la discussion pierre56680
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pierre56680

Guest
bonjour
je cherche a afficher en dynamique dans une cellule excel le nombre de secondes
qui est passé depuis le 1 janvier de l'année en cours jusqu'a maintenant.

je suis preneur pour un fichier joint
merci
 
Re : decompte du temps

Bonjour pierre, le forum

Avec la fomule : =(MAINTENANT()-40544)*24*60*60
on obtient le résultat demandé.

Maintenant pour avoir cela "en dynamique" .... maintenir la touche F9 enfoncée fonctionne mais bof ..

Cordialement
 
Re : decompte du temps

Bonjour,
Je propose ça :
VB:
Private AffPlanifié As Boolean, MomentPrévu As Date
'

Sub LancAffTSec()
AffPlanifié = True
AffTSec
End Sub
'

Sub StopAffTSec()
If AffPlanifié Then
   On Error Resume Next
   Application.OnTime MomentPrévu, "AffTSec", , False
   AffPlanifié = False
   End If
End Sub
'

Sub AffTSec()
Feuil1.[A1].FormulaR1C1 = "=86400*(NOW()-DATE(YEAR(TODAY()),1,1))"
If AffPlanifié Then
   MomentPrévu = Now + Durée / 86400
   Application.OnTime MomentPrévu, "AffTSec", , True
   End If
End Sub
 
Re : decompte du temps

Tu le mets dans un module standard,
et tu appelle LancAffTSec dans une WorkBookActivate du ThisWorkbook
et tu appelle StopAffTSec dans une WorkBookBeforeClose surtout sinon c'est un coup à ce qu'il se réouvre après qu'on le ferme pour exécuter l'AffTSec, et à ne plus pouvoir le fermer aisément !
 
Re : decompte du temps

Avec les reponses aux questions des tous, j'ai reussi a trouver la solution ci-dessous
probleme:
comment voir en dynamique la perte sèche en euros d'une usine ,au sujet de la consomation des fuites d'air .
en sachant que nos fuite d'air nous coute environ 20000€ par an
j'ai la reponse
 

Pièces jointes

Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
169
Réponses
3
Affichages
233
Réponses
5
Affichages
306
Réponses
10
Affichages
587
Retour