Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Discussion: Compte à rebours

  1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    octobre 2009
    Messages
    308
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : octobre 2009
    Messages : 308
    Points : 119
    Points
    119

    Par défaut Compte à rebours

    Bonjour,

    Voilà, je me lance dans le VBA... j'ai quelques notions en VBA Access & Excel, mais pas vraiment en Powerpoint...

    J'ai un PowerPoint avec plusieurs diapos, chaque diapo (sauf la 1er, c'est le titre...) contient, plusieurs champs texte, une question, une réponse...

    Lors de l'ouverture d'une diapo, les instructions apparaissent (animation), la question apparait (animation) et je dois ensuite cliquer sur la souris pour faire apparaître la réponse, jusque là, pas de problème

    Maintenant, ils ont 1 minute pour répondre avant que je clic sur la souris pour faire apparaître la réponse et ensuite de nouveau cliquer sur la souris pour passer à la question suivante...

    J'aimerais qu'un compte à rebours se lance dès l'apparition de la question et qu'arrivé à 0, un son se lance pour annoncer la fin. je devrais ensuite cliquer sur la souris pour faire apparaître la réponse et de nouveau pour passer à la diapo suivante...

    Et ça pour toute les diapos...

    Pouvez-vous m'aider ?

    Ps : j'ai ce code que je comprends et que j'arrive à lancer, mais que je n'arrive pas à intégrer comme j'aimerais... 1er problème lorsque je clic sur la souris AVANT le temps, j'aimerais que le code s'arrête... etc...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Sub countDown1()
    Dim time As Date
    Dim count As Integer
     
    time = Now()
    count = 59
     
    time = DateAdd("s", count, time)
     
    Do Until time <= Now()
    DoEvents
     
    With ActivePresentation.Slides(2).Shapes("Rebours").TextFrame.TextRange
        .Text = Format((time - Now()), "hh:mm:ss")
    End With
     
    Loop
     
    End Sub

    Merci d'avance

  2. #2
    Candidat au Club
    Homme Profil pro
    transport
    Inscrit en
    janvier 2019
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Corse (Corse)

    Informations professionnelles :
    Activité : transport
    Secteur : Transports

    Informations forums :
    Inscription : janvier 2019
    Messages : 1
    Points : 2
    Points
    2

    Par défaut compte à rebours

    bonjour
    je suis dans la même situation. Mais pour moi ce sont dix questions. Le joueur dispose de 1 mn 30 pour finir le questionnaire. Au bout de ce délai la page "perdu" apparaît.

Discussions similaires

  1. [timer] Compte à rebours pour redirection !
    Par Raideman dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 31/12/2005, 20h07
  2. Compte à rebours
    Par Anduriel dans le forum Général JavaScript
    Réponses: 11
    Dernier message: 29/12/2005, 20h12
  3. compte à rebours
    Par Datord dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 17/11/2005, 21h22
  4. compte à rebours
    Par etoile1506 dans le forum C
    Réponses: 10
    Dernier message: 27/10/2005, 15h20
  5. Compte à rebours trop rapide
    Par Anduriel dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 12/06/2005, 20h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo