Discussion :

[Oh!Tofocus]

Je voudrais faire un CASSE-BRIQUE sur EXCEL
( quelle idée )
mais mon gros problème c'est la detection de l'appuie sur une touche ( associé au déplacement de la raquette ) pendant le déroulement d'une macro ( qui gère le déplacement de la balle de cellules en cellules)

y a t il une solution ?

[ouskel'n'or]

Oui, il y a une solution. Mais avant d'en parler, sur quoi fais-tu ton casse brique ? Dans un userform ?

[Oh!Tofocus]

merci de t'interesser à mon problème

j'ai prevu d'utiliser une feuille EXEL
les cellules formant un cadrillage
la balle se deplacera de cellules en cellules.

[ouskel'n'or]

Désolé mais la solution que je voulais te proposer fonctionne sur un userform et est assez complexe à mettre en oeuvre.
Bonne chance

[Oh!Tofocus]

C'est peut être idiot
mais si j'ouvre un userform avec un bouton JOUER
et que mon CASSE-BRIQUE démarre sur la procédure Private Sub JOUER_Click()

cela devrais être possible

[ouskel'n'or]

Je te passe toujours l'url pour la solution avec un userform. Tu vas devoir trouver les codes des flêches mais à part ça, dans un userform, ça fonctionne. Jète un oeil sur la page 3.
Par contre tu risques d'avoir un pb de lenteur dans les réactions.
J'avais eu besoin de ce code sur la version 97 d'Excel et j'ignore si ce cirque est toujours nécessaire dans les versions suivantes.
Bref, tu testes...
Bon courage mais je ne pense pas qu'Excel soit le meilleur outil pour réaliser des jeux, fut-il aussi simple qu'un casse-brique

[Oh!Tofocus]

Merci pour touts ces bons conseils.

je ne pense pas qu'Excel soit le meilleur outil pour réaliser des jeux, fut-il aussi simple qu'un casse-brique

Je sais bien mais c'est pour le fun
Histoire de voir si je peux le faire

[Oh!Tofocus]

Salut

j'ai trouvé un début de solution à mon problème de détection de touche.
directement dans la macro.

Je vous en fais part.
ça peut toujours interesser quelqu'un!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Sub touche()
'boucle suplementaire pour alonger la durée totale de la macro
For i = 1 To 9999
 
    For r = 1 To 1000
        'teste touche P = arret de la boucle
        If GetAsyncKeyState(80) <> 0 Then End
        ' teste touche A
        If GetAsyncKeyState(65) <> 0 Then
        MsgBox "La touche A a été frappée."
        End If
    Next r
 
Next i
End Sub

pour tester les fleches il faut tester:
fleche droite : 39
fleche gauche : 37
fleche bas : 40
fleche haut : 38

plus d'info ici http://support.microsoft.com/kb/465098/fr

Pour jouer à mon CASSE BRIQUE voir le post :
http://www.developpez.net/forums/d66...vba-pere-noel/

bon jeu