Appuyez sur Alt + F11 pour démarrer l'éditeur VBA. Du "Insérer" menu, sélectionnez la "Module" option et insérez le code ci-dessous pour garder la trace des points dans votre présentation.
UpdateThePoints sub ()
MsgBox "Vos points: " &Amp CStr (AddToThePoints (1))
End Sub
Fonction AddToThePoints (iIncrement As Integer) As Integer
Ipoints statiques As IntegerSi iIncrement = 0 Then
ipoints = 0
Autre
ipoints = ipoints + iIncrement
End If
AddToThePoints = ipoints
End Function