Bonjour à tous,

Tout d'abord, veuillez m'excuser pour cette demande qui va peut-être paraître évidente pour bon nombre d'entre vous, mais pour ma part, mes connaissances en PowerPoint sont limitées (honte à moi ..) et j'avoue que les tâches que je dois y effectuer me donnent du fil à retordre ..
Je recherche une macro VBA permettant de faire tourner les dés 3D proposés par powerpoint de manière aléatoire. J'ai trouvé un code mais celui-ci fait atterrir le dés toujours sur le même numéro. J'ai également une touche sur le powerpoint lancer le dé

Merci pour votre aide
Voici la macro:

Sub p1()
Dim Dice As Model3DFormat, xax As Integer, yax As Integer, zax As Integer

Sub SpinDice()
For i = 1 To 2 'change to '1 To 1' if only once dice
Set Dice = ActivePresentation.SlideShowWindow.View.Slide.Shapes("dice" & i).Model3D
Randomize
R = Int((6 * Rnd) + 1)
If R = 1 Then p1
If R = 2 Then p2
If R = 3 Then p3
If R = 4 Then s1
If R = 5 Then s2
If R = 6 Then s3
AdjustCoords
Next i
End Sub

Sub AdjustCoords()
Dice.RotationX = xax
Dice.RotationY = yax
Dice.RotationZ = zax
End Sub

Sub p1()
xax = Int((30 * Rnd) + 73)
yax = Int((10 * Rnd) + 349)
zax = Int((50 * Rnd) + 64)
End Sub

Sub p2()
xax = Int((30 * Rnd) + 250)
yax = Int((10 * Rnd) + 349)
zax = Int((50 * Rnd) + 270)
End Sub

Sub p3()
xax = Int((30 * Rnd) + 160)
yax = Int((10 * Rnd) + 349)
zax = Int((50 * Rnd) + 170)
End Sub

Sub s1()
xax = Int((30 * Rnd) + 190)
yax = Int((20 * Rnd) + 280)
zax = Int((50 * Rnd) + 314)
End Sub

Sub s2()
xax = Int((30 * Rnd) + 130)
yax = Int((20 * Rnd) + 70)
zax = Int((50 * Rnd) + 150)
End Sub

Sub s3()
xax = Int((30 * Rnd) + 0)
yax = Int((20 * Rnd) + 0)
zax = Int((20 * Rnd) + 0)
End Sub
End Sub