Microsoft 365 Compte à rebours dynamique

[GUERET]

Bonsoir,
Il y a peu, je cherchais une formule pour un compte a rebours dynamique. Jean-Éric m'en a donné une que je souhaiterai amélioré en le rendant dynamique, c'est à dire que, dès l'ouverture ma feuille, je vois les secondes qui défilent.
J'ai trouvé une VBA sur le net qui ne me donne pas satisfaction ou alors, je n'ai pas entré les bonnes infos.
Mon idée est-elle réalisable car j'aimerai m'en servir pour d'autres fichiers ?
Cordialement
https://we.tl/t-nUc9B3PMYR

 

[Dranreb]

Non, ça c'est un site d'hébergement externe qui me casse les pieds.

 

[GUERET]

Non, ça c'est un site d'hébergement qui me casse les pieds.

Mon fichier est vraiment très lourd !
https://www.transfernow.net/dl/20220822JhPf8fcS

 

[Phil69970]

Bonjour à tous

@GUERET

Mon fichier est vraiment très lourd !

C'est une blague !


C'est pas nouveau et tu es pas nouveau non plus

Au lieu de mettre le fichier sur tous les sites de partage que tu connais poste le ici tout simplement
La limite est de 1 Mo donc tu as encore de la marge ....

Et en plus c'est écrit dans la charte que tu as lu en t'inscrivant

https://excel-downloads.com/help/charte/ § 1.12
Les problèmes liés à la fourniture de liens vers des fichiers téléchargeables en dehors du forum sont les suivants : les liens expirent souvent après une certaine durée, de nombreux utilisateurs ne peuvent pas télécharger de fichiers à partir de sites de partage de fichiers en raison de restrictions de sécurité réseau, de nombreux utilisateurs hésitent à télécharger des fichiers pour des raisons de sécurité personnelle et les fonctionnalités de recherche du forum ne fonctionnent pas.

Bonne lecture

@Phil69970

 

[GUERET]

Bonjour à tous

@GUERET



Regarde la pièce jointe 1147865

C'est une blague !


C'est pas nouveau et tu es pas nouveau non plus
Regarde la pièce jointe 1147867

Au lieu de mettre le fichier sur tous les sites de partage que tu connais poste le ici tout simplement
La limite est de 1 Mo donc tu as encore de la marge ....

Regarde la pièce jointe 1147866

Et en plus c'est écrit dans la charte que tu as lu en t'inscrivant

https://excel-downloads.com/help/charte/ § 1.12
Les problèmes liés à la fourniture de liens vers des fichiers téléchargeables en dehors du forum sont les suivants : les liens expirent souvent après une certaine durée, de nombreux utilisateurs ne peuvent pas télécharger de fichiers à partir de sites de partage de fichiers en raison de restrictions de sécurité réseau, de nombreux utilisateurs hésitent à télécharger des fichiers pour des raisons de sécurité personnelle et les fonctionnalités de recherche du forum ne fonctionnent pas.

Bonne lecture

@Phil69970

 

[GUERET]

Bonsoir Phil,
Je n'ai pas dit que j'étais nouveau sur ce site mais juste un peu nul en VBA donc j'essaie de me débrouillé en fouillant un peu partout avant de crier "AU SECOURS, HELP" quand cela me dépasse comme le cas aujourd'hui.

 

[GUERET]

Bonsoir Phil,
Je n'ai pas dit que j'étais nouveau sur ce site mais juste un peu nul en VBA donc j'essaie de me débrouillé en fouillant un peu partout avant de crier "AU SECOURS, HELP" quand cela me dépasse comme le cas aujourd'hui.

=LET(début;MAINTENANT();fin;B6+C6;m;DATEDIF(début;fin;"ym")&" mois ";j;DATEDIF(début;fin; "md");d;MOD(fin-début;1);h; ENT(d*24);mn;ENT(MOD(d*24;1)*60);ss;ENT(MOD(d*60;1)*36);m&SI(j>1;j&" jours ";j&" jour, ")&SI(h>1;h&" heures ";h&" heure ")&SI(mn>1;mn&" minutes ";mn& " minute et ")&SI(ss>1;ss&" secondes ";ss&" seconde "))
La voilà ma formule qui m'a pris du temps. Juste pour info :
1) est-elle correcte ?
2) pourquoi les secondes ne se déclenchent-elles pas ?
Cordialement

 

[Dranreb]

Bonsoir.
Parce qu'il n'y a pas de recalcul de la feuille entrainant une réévaluation de la formule.
Pour cela, installez la programmation de mon poste #6 dans un nouveau module standard, et des appel à ses procédures dans le module de l'objet Worksheet représentant la feuille.

 

[GUERET]

Pour que votre formule, qui utilise vraisemblablement la fonction MAINTENANT(), soit réévaluée toutes les secondes, ajoutez ce code dans un module standard :

Option Explicit
Private HeureOT As Date
Sub Decompte()
   Application.Calculate
   HeureOT = Now() + TimeSerial(0, 0, 1)
   Application.OnTime HeureOT, "Decompte"
   End Sub
Sub StopperDecompte()
   If HeureOT Then
      Application.OnTime HeureOT, "Decompte", Schedule:=False
      HeureOT = 0: End If
   End Sub

Et prévoyez un appel à Decompte dans une Sub Workbook_Open de ThisWorkbook ou une Worksheet_Activate du module de l'objet Worksheet représentant la feuille, et un appel à StopperDecfompte dans une Workbook_BeforeClose ou une Worksheet_Deactivate.

Voilà, je viens de copier votre code qui fonctionne mais :
1-Je suis obligé de le lancer manuellement
2- les secondes s'affichent avec 5 chiffres
Corrigez moi et SURTOUT, dites moi où j'ai fais des bourdes afin de me perfectionner à l'avenir
Cordialement

 

[Dranreb]

Bonsoir.
Dans ThisWorkbook :

Option Explicit
Private Sub Workbook_Open()
   Decompte
   End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   StopperDecompte
   End Sub

Je n'ai pas la fonction LET sur ma version d'Excel. alors je ne peux pas voir le résultat.

 

[GUERET]

Merci pour ce coup de pouce . Je vais me pencher sur mes erreurs et tenter de les comprendre