Je vais regarder le code du Snake @LouReed mais pour information par exemple "Bubble Cubes", "Méga Bloks 4x4" et "Machine à sous" ne fonctionne pas sous Excel 2007
Edit: je viens de voir le snake, il fonctionne niquel , je vais voir si en modifiant le code cela corrige le soucis.
Du coup pour tes autres jeux il faudrait une update @LouReed j'imagine comme dans le snake
Si je ne trouve pas de solution (à part acheter excel 2016 ^^), on pourra laisser le jeu juste pour la version 2007? je ne sais pas trop quel version de jeu les gens utilisent hmm c'est chiant cette histoire
Je ne pensais pas avoir de soucis de compatibilité dans mon sens snif , la seule fonction un peu spécial on va dire je pense que c'est la détection du clique droit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'The function returns whether a key is pressed or not
Public Function KeyPressed(ByVal Key As Long) As Boolean
KeyPressed = CBool((GetAsyncKeyState(Key) And &H8000) = &H8000)
End Function
Je viens de faire un test avec
#If VBA7 Then
' fonction de détection de touche "utilisée"
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As LongPtr) As Integer
#Else
' fonction de détection de touche "utilisée"
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Key As Long) As Integer
#End If
Je te laisse tester Sébastien, tu me diras si le problème vient de la