Compte à rebour

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 .

Bonsoir,

Une piste.


Cordialement.

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

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

Bonsoir,

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

Bonjour,

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

Bonjour Mimimathy

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

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

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

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