Compte a rebour powerpoint 2007
jean753
-
jean753 -
jean753 -
Bonjour,
je voudrai savoir s'il est possible d'insérer un compte a rebours sur microsoft power point de façon qu'il me fasse un compte a rebours pour d'une date xx/xx/xx a une date future (avec jour, heure, minute) et qu'ils se mette a jour a chaque fois que je l'ouvre.
par exemple :
date futur : 20/04/2012 18h30
date du jour x : 02/04/2012 17h30
le compte a rebours doit afficher : 18jours,1heure,00minute
et donc si c'est possible je voudrai savoir comment faire
merci beaucoup d'avance a ceux qui répondront
- je ne suis pas trop sur d'être dans la bonne section donc si ce n'est pas la bonne dite le moi et je le mettrai la ou il faut
je voudrai savoir s'il est possible d'insérer un compte a rebours sur microsoft power point de façon qu'il me fasse un compte a rebours pour d'une date xx/xx/xx a une date future (avec jour, heure, minute) et qu'ils se mette a jour a chaque fois que je l'ouvre.
par exemple :
date futur : 20/04/2012 18h30
date du jour x : 02/04/2012 17h30
le compte a rebours doit afficher : 18jours,1heure,00minute
et donc si c'est possible je voudrai savoir comment faire
merci beaucoup d'avance a ceux qui répondront
- je ne suis pas trop sur d'être dans la bonne section donc si ce n'est pas la bonne dite le moi et je le mettrai la ou il faut
A voir également:
- Macro compte à rebours powerpoint
- Powerpoint viewer - Télécharger - Présentation
- Insérer video powerpoint - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Créer un compte google - Guide
- Powerpoint 2013 - Télécharger - Présentation
9 réponses
Bonsoir,
A ma connaissance, une macro Auto-Open dans PowerPoint ne fonctionne que dans un addin afin de lancer un événement initialisé dans un module de classe.
Il n'y a que 3 macros automatiques dans PowerPoint qui se déclenchent donc automatiquement et uniquement durant un diaporama (OnSlideShowPageChange, OnSlideShowTerminate, OnSlideShowTerminate).
Quant à faire un décompte dans PPT, je serais d'avis pour opter pour une solution Flash à insérer dans PowerPoint.
m@rina
A ma connaissance, une macro Auto-Open dans PowerPoint ne fonctionne que dans un addin afin de lancer un événement initialisé dans un module de classe.
Il n'y a que 3 macros automatiques dans PowerPoint qui se déclenchent donc automatiquement et uniquement durant un diaporama (OnSlideShowPageChange, OnSlideShowTerminate, OnSlideShowTerminate).
Quant à faire un décompte dans PPT, je serais d'avis pour opter pour une solution Flash à insérer dans PowerPoint.
m@rina
Bonjour,
Solution VBA
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Copier le code si dessous: (modifier le si cela ne convient pas pour le texte)
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = "02/04/2012 17:30"
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
Click sur fenetre Microsoft Power-Point
Menu--------->Developpeur------------>Controles
Click sur le A majuscule (controle Label)
Aller sur la diapo--------->click gauche et dessiner le controle Label
par defaut le nom du premier control Label est LABEL1.
Vous pouvez modifier les proprietes (taille caractere, couleur....) par click gauche sur le Label
Enregistrez votre PPS en: Presentation prenant en charge les macros
Principe:
A chaque ouverture du Power-Point, vous verrez le decompte s'afficher sur la diapo
Bonne suite
Solution VBA
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Copier le code si dessous: (modifier le si cela ne convient pas pour le texte)
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = "02/04/2012 17:30"
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
Click sur fenetre Microsoft Power-Point
Menu--------->Developpeur------------>Controles
Click sur le A majuscule (controle Label)
Aller sur la diapo--------->click gauche et dessiner le controle Label
par defaut le nom du premier control Label est LABEL1.
Vous pouvez modifier les proprietes (taille caractere, couleur....) par click gauche sur le Label
Enregistrez votre PPS en: Presentation prenant en charge les macros
Principe:
A chaque ouverture du Power-Point, vous verrez le decompte s'afficher sur la diapo
Bonne suite
bonjour merci d'avoir répondu
j'ai essayé de faire ce que vous m'avez dit mais au moment où il faut faire le contrôle label il ne prend pas en compte le module crée précédemment, donc j'essaye de copier le code dans le nouveau dossier crée mais ça ne fonctionne pas sauf si je remplace auto-open par label1-clic, il me fait le calcul quand je clic sur le diaporama
mais pour ce que j'ai réussi a avoir il fait juste le calcul il ne fais pas decompte quand il est ouvert
j'ai essayé de faire ce que vous m'avez dit mais au moment où il faut faire le contrôle label il ne prend pas en compte le module crée précédemment, donc j'essaye de copier le code dans le nouveau dossier crée mais ça ne fonctionne pas sauf si je remplace auto-open par label1-clic, il me fait le calcul quand je clic sur le diaporama
mais pour ce que j'ai réussi a avoir il fait juste le calcul il ne fais pas decompte quand il est ouvert
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
qu'ils se mette a jour a chaque fois que je l'ouvre.
C'est ce que vous avez demander.
Vous n'avez pas demande a ce que le decompte se fasse tout le temps du diaporama ouvert!
J'ai corrige date_du_jour_x = "02/04/2012 17:30" qui pour moi etait fixe
alors que c'est la date courante
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = Now 'Date maintenant
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
A+
qu'ils se mette a jour a chaque fois que je l'ouvre.
C'est ce que vous avez demander.
Vous n'avez pas demande a ce que le decompte se fasse tout le temps du diaporama ouvert!
J'ai corrige date_du_jour_x = "02/04/2012 17:30" qui pour moi etait fixe
alors que c'est la date courante
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = Now 'Date maintenant
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
A+
bonjour
merci beaucoup pour le changement c'est que je voulais
et au risque d'être un peu énervant.
j'arrive pas a le rendre automatique il bloque quand je met le code
donc voila si vous avez une idée de pourquoi le mode auto ne veut pas marcher?
encore merci
merci beaucoup pour le changement c'est que je voulais
et au risque d'être un peu énervant.
j'arrive pas a le rendre automatique il bloque quand je met le code
Auto_Open()par contre si je met
Label1_Click()il me fait bien le décompte mais faut que je clique sans arrêt pour que le décompte se fasse
donc voila si vous avez une idée de pourquoi le mode auto ne veut pas marcher?
encore merci
Re,
Est-ce que vous avez mis le code dans un module??? voir ci-dessous
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Pour un decomptage auto, je regarde pour mardi fin matinee
Est-ce que vous avez mis le code dans un module??? voir ci-dessous
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Pour un decomptage auto, je regarde pour mardi fin matinee