Insertion d'une valeur aléatoire actualisée dans Powerpoint

Résolu
alonso_01 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
alonso_01 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Voila mon problème : J'ai une présentation Powerpoint dans laquelle j'ai inséré un tableur excel (une seule cellule), avec la formule pour générer un nombre aléatoire : =ALEA.ENTRE.BORNES(min;max). Ce que je voudrais réussir à faire, c'est que cette valeur soit actualisée et ne reste pas toujours la même, qu'elle soit en fait différente a chaque lancement du diaporama.

Or je ne sais pas si cela est possible, voila pourquoi je me tourne vers vous.

Je vous remercie d'avance pour votre aide.
A voir également:

2 réponses

beber67470 Messages postés 4887 Date d'inscription   Statut Membre Dernière intervention   798
 
0
alonso_01 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Je te remercie de ta réponse. Mais mon problème ne concerne pas cette formule que je maitrise mais son intégration dans une présentation powerpoint et son actualisation.
0
m@rina Messages postés 24214 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonsoir,

Ce que je ne comprends pas, c'est quel est l'intérêt d'incorporer un classeur Excel (quand on insèreune cellule, c'est le classeur entier qu'on incorpore) juste pour un nombre...

Par ailleurs, la fonction ALEA a besoin d'une mise à jour pour être modifiée, donc c'est un peu compliqué de lancer une mise à jour en arrière plan parce qu'il faudra passer par l'ouverture de ce fichier Excel.

Pourquoi ne pas te limiter à PowerPoint ? On peut faire une macro événementielle qui met une valeur aléatoire dans une zone de texte qui sera différente à chaque lancement du diaporama.

m@rina

-1
alonso_01 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Oui je peux me limiter a power point, je ne savais pas que je pouvais le faire. Du coup j'ai trouvé comment faire une macro avec VBA. Mais je n'arrive pas a l'inserer dans une zone de texte comme vous le proposez
0
m@rina Messages postés 24214 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour,

Faut une macro événementielle qui va s'exécuter au passage de la diapo en question.
Par exemple :

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
montexte = (50 * Rnd) + 1
If SSW.View.CurrentShowPosition = 2 Then
ActivePresentation.Slides(2).Shapes("zone").TextFrame.TextRange.Text = montexte
End If
End Sub


Cette macro va s'exécuter au passage de la 2e diapo. Tu changes le numéro pour une autre diapo. Dans cette diapo, tu insères auparavant une zone de texte toute bête que j'ai nommé ici "zone". Tu peux la nommer autrement.

Si tu veux générer un nombre entier, ajoute Int devant le texte : Int((50 * Rnd) + 1)

m@rina
0
alonso_01 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai réussi, merci beaucoup pour le temps consacré ;)
0