Microsoft 365 Compte à rebours dynamique

Dranreb

XLDnaute Barbatruc

• 19 Août 2022

• #2

Bonsoir.
Regardez si vous trouvez votre bonheur là dedans.

 

Pièces jointes

• Progression.xlsm

  216.9 KB · Affichages: 22

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 19 Août 2022

• #3

Désolé mais je n'ai pas trouvé mon bonheur qui est celui d'avoir un compte à rebours pour la coupe du monde qui inclue le mois, le jour, l'heure, la minute et secondes et le tout se met en branle à chaque fois que j'ouvre ma feuille (les secondes qui défilent à rebours en trainant les minutes, les heures etc..).
Merci quand même
Cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2022

• #4

Si vous pouviez le calculer par une formule il ne resterait plus qu'à planifier un recalcul de la feuille toutes les seconde.

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 20 Août 2022

• #5

En C2, Jean-Éric m'avait donné une formule et c'est en partant de celle-là que je voudrais ajouter les secondes en temps réel qui ferait un compte à rebours dynamique c'est-à-dire dès l'ouverture de la feuille.
J'ai essayé d'y introduire une VBA piquée sur le forum mais rien n'y fait d'où mon appel AU SECOURS

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Août 2022

• #6

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

VB:

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.

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 22 Août 2022

• #7

Trop compliqué pour moi, je laisse tomber cette idée.
Merci tout de même pour ce coup de main
Cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Août 2022

• #8

Bonjour.
Qu'est-ce qu ça aurait de compliqué pour vous, ça ?

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 22 Août 2022

• #9

Mon niveau de VBA est au ras des pâquerettes. Je tâtonne et galère pour y arriver là où certains passent 1/4 d'heure. Mon souhait de créer un compte à rebours dynamique (affichage des secondes défilantes qui déclenchent donc le compte à rebours par minute, heure jour et mois et s'arrête à la date de la coupe du monde) est d'un niveau trop élevé pour moi

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 22 Août 2022

• #10

Voilà ce que j'obtiens en B2. Les secondes ne défilent pas mais le reste fonctionne
https://we.tl/t-JknOebgSVv

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 22 Août 2022

• #11

Bonjour,

La logique un compte à rebours dans le fichier qui gèrent les résultats (c'est à dire coupe du monde déjà commencée) je vois pas l'intérêt.

Au pire à l'ouverture du fichier on peut automatiser l'affichage (une fois) du temps restant avant le Début
mais le décompte seconde par seconde ... suis pas convaincu que cela serve à grand chose
je mettrais plutot pour ma part la date de la dernière MaJ des données du tableau dedans (pour que les utilisateurs sachent s'ils ont oublié de saisir des résultats).

Mais je m'écarte des le demande ... désolé !

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 22 Août 2022

• #12

Merci tout de même

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Août 2022

• #13

Utilisez le bouton "Joindre un fichier" de ce site svp.

 

Vote positif 0 Vote négatif

Solution

G

GUERET

XLDnaute Occasionnel

• 22 Août 2022

• #14

Dranreb à dit:

Utilisez le bouton "Joindre un fichier" de ce site svp.

Cliquez pour agrandir...

Coupe du monde/Coupe du monde 2022 ter.xlsm

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 22 Août 2022

• #15

Dranreb à dit:

Utilisez le bouton "Joindre un fichier" de ce site svp.

Cliquez pour agrandir...

https://we.tl/t-JknOebgSVv

 

Vote positif 0 Vote négatif