VBA : Comment générer une phrase aléatoire sur Powerpoint ?

Padrino31 - 20 oct. 2023 à 18:45

Salut ! 

Je voudrais réussir à chaque ouverture de mon fichier PowerPoint à générer une phrase choisie aléatoirement parmi une sélection de phrases que j'ai sélectionnée. 

J'ai vu une histoire de matrice et de fonction "Rand", mais je n'arrive pas à bien paramétrer tout cela. 

Une autre option existe-elle ou alors, comment réussir à choisir précisément le texte auquel apparaitra le résultat avec "Rand" ? 

Je vous mets une copie de la formule avec "Rand" :

Sub ChoisirPhraseAleatoire()     Dim Phrases() As String     Dim RandomIndex As Integer         ' Liste de vos phrases     Phrases = Split(vincent, pierre, antoine, jack)         ' Génère un index aléatoire     Randomize     RandomIndex = Int((UBound(Phrases) + 1) * Rnd)         ' Affiche la phrase aléatoire     ActivePresentation.Slides(1).Shapes("Text Box 1").TextFrame.TextRange.Text = Phrases(RandomIndex) End Sub 

J'ai mis des prénoms pour le test (vincent, pierre, etc) mais je ne comprends pas la fin : comment je vois le numéro de la text box par exemple ? 

Je suis sur la version Mac 2021.

Merci beaucoup par avance !