Discussion :

[Invité]

Bonjour à tous, j'aimerais créer un compte à rebours qui serait visible par l'utilisateur et pouvoir l'activer avec un bouton ou une action en VBA sous PowerPoint 2013.
Merci d'avance

[pgz]

Bonjour.

Si tu veux un affichage indépendant de la diapo visionnée, tu peux utiliser un userForm.
Pour déclencher la macro, si c'est un mode diaporama, un bouton, même de petite taille peut faire l'affaire.

Tu crées un userForm qui se nommera par défaut "UserForm1", et une étiquette par défaut "Label1". Dans l'étiquette tu choisis la police et une grande taille de caractère.

Tu crées un bouton de commande ActiveX, ce qui crée une objet Slide dans le projet. A cet objet est associé un module de code. Dans ce module :
en tête : "Option explicit"
une procédure Sur click du bouton de commande. Cette procédure peut contenir tout le code (c'est ce que je montre ici), ou appeler une procédure dans un module standard.

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
20
21
22
23
24
25
Private Sub CommandButton_Click()
Dim sngH As Single
Dim iDeb As Integer, iFin As Integer
 
 
UserForm1.Show vbModeless
 
sngH = VBA.Timer
iDeb = 9
iFin = 0
 
UserForm1.Label1.Caption = iDeb - iFin
 
While iDeb - iFin > 0
    If Int(VBA.Timer - sngH) > iFin Then
        iFin = iFin + 1
        UserForm1.Label1.Caption = iDeb - iFin
        UserForm1.Repaint
    End If
    DoEvents
Wend
 
VBA.Unload UserForm1
 
End Sub

Voilà une manière de faire quelque chose, à adapter au contexte de ton projet.

Cordialement,

PGZ

[Invité]

Ça viens juste d’apparaître : Certains contrôles de cette présentation ne peuvent pas être activés. Ils ne sont peut-être pas inscrits sur cet ordinateur
c'est un message d'erreur que j'ai déjà eu et j'avais déplacé des fichiers sur mon bureau et plus de message d’erreur mais je m'en souviens plus comment faire xD
Help

NB: Et sinon pour revenir à mon problème principal, je voudrais qu'ils soient intégré dans un slide.

[pgz]

Bonjour.

Et sinon pour revenir à mon problème principal, je voudrais qu'ils soient intégré dans un slide.

Si tu veux que le chronomètre s'affiche sur une diapo particulière (Est-ce bien cela que tu voulais dire ?), il suffit que tu utilises une forme sur cette diapo. Pour le bouton, c'est pareil et le code est presque le même : pas de userform à ouvrir, ni à fermer, et écriture dans la forme au lieu du contrôle du userform.

Cordialement,

PGZ

[Invité]

Merci bien, je voulait vous remercier d'avoir prit le temps de répondre à toutes mes questions

PS : une petite dernière question pour la fin, comme je vous l'ai expliqué quand j'ouvre ma présentation PowerPoint un message d'erreur s'affiche : Certains contrôles des cette présentation ne peuvent pas être activés, ils ne sont peut être pas inscrits sur cet ordinateur.
Que doit je faire ?

[pgz]

Titaii2,

Sont-ce des contrôles ActiveX ? Tu as quelle version de PowerPoint ?

PGZ

[Invité]

Je j'ai que des contrôles ActiveX dans ma présentation donc ça doit être ça et j'ai PowerPoint 2013

[pgz]

OK.

Alors regarde cette discussion.
Cela pourrait répondre à ton problème.

Cordialement,

PGZ

[Invité]

Il n'y a aucun lien
EDIT: j'avais pas vu le lien xD

[Invité]

Malheureusement ce topic ne résout pas mon problème : en supprimant les fichiers .exd ou en supprimant certaines mises a jour.
Une autre solution ?

[clementmarcotte]

Bonjour,

Malheureusement ce topic ne résout pas mon problème : en supprimant les fichiers .exd ou en supprimant certaines mises a jour.
Une autre solution ?

As-tu un Office à 64 bits ? Si c'est le cas, cela peut vouloir dire que tu essaies de charger une présentation qui contient de vieux contrôles 32 bits incompatibles avec Office à 64 bits.

Sinon, cela peut vouloir dire que ta présentation vient d'une machine qui avait des contrôles qui sont absents sur la tienne.

[Invité]

Du coup qu'elle serais la solution car je n'ai entré que des contrôles activeX simples (CommandButton, Liste déroulante etc ...) ?
EDIT: en fait mon problème est réglé : j'ai recopié mon Powerpoint sur un autre
Encore une question pour vous Pgz, comment pourrai - je stopper le compteur avec un bouton et pouvoir le relancez avec ce même bouton en utilisant un bouton à bascule ?