Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compte à rebour

Xxaann

XLDnaute Occasionnel
Bonjour,

J'aimerai afficher dans un UserForm un compte un rebour en minutes et secondes.
J'ai regarder sur l'ensemble des discussion sur le forum, mais je ne trouve rien.

Pouvez-vous m'aider...

A+
 

excfl

XLDnaute Barbatruc
Re : Compte à rebour

Bonjour,

Un compte à rebours avec : année(s), jour(s), heure(s),minutes(s) et seconde(s).

excfl
 

Pièces jointes

  • countdown.zip
    44.3 KB · Affichages: 284

Xxaann

XLDnaute Occasionnel
Re : Compte à rebour

Merci Kjin, ton fichier est tip top.

Reste plus qu'à adapter à mon besoin.

C'est toujours un plaisir de venir sur ce forum, des gens sympas qui partagent leur expérience avec des novices comme moi.

Bye
Xxaan
 

Fo_rum

XLDnaute Accro
Re : Compte à rebour

Salut,

par exemple :

Dans la feuille du bouton de lancement,
Insertion
Objet ...
Son Wave
Clic, bouton droit, sur l'objet,
Objet Document Magnétophone
Modifier
Enregistrer le "son".

Déplacer éventuellement l'objet pour le cacher.

Dans l'éditeur VB :

Insérer les lignes suivantes aux 2 moments prévus pour l'arrêt du chrono :
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlPrimary
en faisant attention au nom de l'objet !
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…