Compte à rebour

[OscarRL]

Bonsoir les spécialistes

J’aimerai pouvoir intégrer un compte à rebour dans un fichier. Mon fichier Joint est en formule excelClasseur compte à rebour.xlsx (8,9 Ko)

D’avance un grand merci .

[Zebulon]

Bonsoir,

Une piste.

Compte à rebours avec jours heures et minutes

Cordialement.

[OscarRL]

Désolé, mais je cherche une macro pour mon fichier

Fichier joint
Classeur compte à rebour.xlsx (9,1 Ko)
Cordialement

[Zebulon]

Bonsoir,

le 3ème post contient un fichier bâti à partir d’une macro.
Cordialement.
Compte à rebours.xlsm (18,6 Ko)

[Mimimathy]

Bonjour,

Un test
Classeur compte à rebour.xlsm (24,6 Ko)

[OscarRL]

Bonjour Mimimathy

Content de m’avoir répondu, “Correspond à mon attende” Super Et merci beaucoup

[Mimimathy]

Re,
La prochaine fois, inutile de poster ailleurs, on attend au moins une journée complète

[OscarRL]

RE

Désolé, mais je n’étais pas sûr d’être à la bonne adresse.

Merci encore pour la résolution de mon problème .

Ps: dans mon fichier j’ai un message d’erreur" Erreur de compilation Attendu : Sub ou Function"

Ligne:Déclare PtrSafe

Cordialement

[Mimimathy]

Re,

Remplace la ligne par les autres lignes du dessous

Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long



#If VBA7 Then
    Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If