Randomisons nos PPT
Il y a plusieurs fichiers powerpoint partagés ici pour lesquels je souhaitais pouvoir les randomiser facilement, c’est à dire que je cherchais un moyen simple de distribuer leurs diapositives de manière aléatoire à chaque présentation ou plutôt au gré de mes envies.
J’ai donc cherché sur le net une macro qui me permettrait de réaliser mon souhait. Et j’ai trouvé ! ICI. Je recopie le code ci-dessous :
Sub sort_rand()
Dim i As Integer
Dim myvalue As Integer
Dim islides As Integer
islides = ActivePresentation.Slides.Count
For i = 1 To ActivePresentation.Slides.Count
myvalue = Int((i * Rnd) + 1)
ActiveWindow.ViewType = ppViewSlideSorter
ActivePresentation.Slides(myvalue).Select
ActiveWindow.Selection.Cut
ActivePresentation.Slides(islides – 1).Select
ActiveWindow.View.Paste
Next
End Sub
Quant à savoir comment insérer ce code, il m’a suffi de suivre les liens donnés et d’aboutir ICI.
Fort de ces informations, je me suis lancé en modifiant les PPT que nous a offerts Émilie Ragouilliaux ici (exercices d’inhibition cognitive) et là (exercices de flexibilité mentale).
Malheureusement, pour une raison que j’ignore, la macro ne fonctionne pas bien lorsque les dias du ppt possèdent des fonds différents. J’ai donc transformé les ppt qui faisaient appel à des fonds noirs et blancs pour que ce ne soient plus ces fonds qui donnent pertinence aux exercices mais bien le cadre des dias (vous comprendrez aisément en visionnant les fichiers originaux d’Émilie et ceux proposés ci-dessous).
Vous verrez également que, dans les fichiers transformés, le passage de dia en dia ne se fait plus de manière automatique mais au clic. C’est un choix que j’ai fait compte tenu des difficultés majeures que présentent les patients auxquels j’adresse ces exercices.
Mais rien ne vous empêche de modifier si vous avez une version complète de powerpoint (et pas seulement la visionneuse). A ce propos, je voudrais dire que le prix de powerpoint est loin d’égaler celui de bon nombre de logiciels de revalidation et qu’il permet de créer et de partager aisément des logiciels aussi bien faits. Bon, je dis cela et je ne dis rien. Vous faites ce que vous voulez.
Téléchargez
inhibition2 (Zip de 5 ppt, 556 Ko))
flexibilite2(Zip de 6 ppt, 1.38 Mo)
Un peu de flexibilité, que diable …
FABULEUX ! merci !