clics de souris

doctojones · 8 Mars 2009

Bonjour

Je cherche à reprogrammer en vba un petit jeu que j'ai vu sur une console portable.
En bref, j'ai un tableau avec 3 cellules sur 3. Certaines de ces cellules contiennent des "1" et d'autres des "0". Le joueur doit cliquer avec la souris sur tous les "1" dans le tableau.
C'est ici que je bloque : comment faire pour que, lorsque le joueur clique une fois sur une cellule contenant un "1", celle-ci change de suite de couleur ?

Merci d'avance

ROGER2327 · 8 Mars 2009

Re : clics de souris

Bonsoir doctojones

Je ne sais le faire qu'avec un «Clic-droit».
Attendons les renforts...

ROGER2327

Excel-lent · 8 Mars 2009

Re : clics de souris

Bonsoir et bienvenu sur le forum DoctoJones,

Si tu avais mis ton début de fichier, j'aurais bien aimé 😉

Mais comme c'est ton premier post... j'ai refais ton fichier puis rajouté ce qui te manquait :

DoctoJones à dit:
comment faire pour que, lorsque le joueur clique une fois sur une cellule contenant un "1", celle-ci change de suite de couleur ?

Bonne soirée

Edition 1. : Bonsoir ROGER2327. Sans le vouloir, j'ai réalisé tes désires en plus de répondre à DoctoJones 🙂

Edition 2. : ROGER2327, ta macro est plus abouti est professionnel que la mienne, mais par contre, lorsqu'on clic dans une cellule contenant 1 et en jaune, elle ne change pas de couleur 😀

doctojones · 8 Mars 2009

Re : clics de souris

Je vous remercie, ROGER2327 et Excel-lent, pour vos réponses rapides. C'est bien cela que je cherchais à faire. Je vais travailler dessus demain et voir si j'arrive à l'integrer à mon fichier, c'est pas du tout cuit 😉
La prochaine fois je penserai à éditer mon fichier dans mon post. Désolé.

Encore une fois merci à vous deux !

Excel-lent · 8 Mars 2009

Re : clics de souris

Bonsoir le fil,

ROGER2327 avec ta belle macro, tu m'as titillé 😉

Je me devais donc de me surpasser.

Macro proposé tout à l'heure dans ma pièce jointe :

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If [COLOR="Blue"]Target.Column >= 2 And Target.Column <= 4 And Target.Row >= 2 And Target.Row <= 4[/COLOR] Then
      If ActiveCell = 1 And ActiveCell.Interior.ColorIndex = 6 Then
         ActiveCell.Interior.ColorIndex = 37
      Else
         If ActiveCell = 1 Then ActiveCell.Interior.ColorIndex = 6
      End If
  End If

End Sub

Nouvelle proposition :

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If [COLOR="Blue"]Not Application.Intersect(Target, Range("[B][U]A2: D4[/U][/B]")) Is Nothing[/COLOR] Then
      If ActiveCell = 1 And ActiveCell.Interior.ColorIndex = 6 Then
         ActiveCell.Interior.ColorIndex = 37
      Else
         If ActiveCell = 1 Then ActiveCell.Interior.ColorIndex = 6
      End If
  End If

End Sub

Partie modifié

Je pensais qu'il était plus simple pour toi de définir ta zone ainsi : Range("A2: D4")

plutôt qu'ainsi : Target.Column >= 2 And Target.Column <= 4 And Target.Row >= 2 And Target.Row <= 4

Bonne fin de soirée

PS. : dans le code suivant : A2: D4 pense à enlever l'espace entre : et D rajouté uniquement pour éviter que cela s'affiche ainsi : A2😀4 qui tu l'avouera n'est pas très clair 😉

vbacrumble · 8 Mars 2009

Re : clics de souris

Bonsoir

Je cherche à reprogrammer en vba un petit jeu que j'ai vu sur une console portable.

Quelqu'un voit-il de quel jeu on parle ?

Simon ?

Excel-lent · 8 Mars 2009

Re : clics de souris

Bonsoir le fil,

Non aucune idée du jeux! Au début je pensais au morpion, mais j'ai vite abandonné cette idée!

Voici ma macro un peu mieux compressé :

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.Interior
  If Not Application.Intersect(Target, [A2:D4]) Is Nothing Then
      If ActiveCell = 1 And .ColorIndex = 6 Then
         .ColorIndex = 37
      Else
         If ActiveCell = 1 Then .ColorIndex = 6
      End If
  End If
End With
End Sub

Bonne soirée à tous

doctojones · 8 Mars 2009

Re : clics de souris

Je ne me souviens pas du nom de ce jeu, mais c'était sur un iPod.

Finalement je n'ai pas pu attendre demain, et j'ai voulu essayer de suite votre macro. Malheureusement, comme je m'y attendais, je n'y arrive pas 🙁
Je vous joins le fichier. J'ai mis un HELP à l'endroit où je désire effectuer ce test.
J'imagine que ce que j'ai déjà fait peut se faire de manière plus concise et beaucoup plus proprement, mais je débute en vba.

Rmq : Les "1" et les "0" ont volontairement la même couleur que la cellule qui les contient. Du coup ils ne sont pas visibles.

vbacrumble · 8 Mars 2009

Re : clics de souris

Re

J'ai voulu me joindre à vous et compresser encore ton code Excel-lent

mais je coince ici

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.Interior
  If Not Application.Intersect(Target, [A2:D4]) Is Nothing Then
  .ColorIndex = IIf(ActiveCell = 1 And .ColorIndex = 6, 37, 6)
  End If
End With
End Sub

doctojones · 8 Mars 2009

Re : clics de souris

Petite précision sur le fonctionnement du fichier joint :

Dans le tableau de droite, je créé des valeurs aléatoires.
Les cases contenant les 3 plus grandes valeurs correspondent aux cases rouges visibles deux secondes dans le tableau de gauche. Lorsque ces cases rouges redeviennent jaunes, le joueur doit alors cliquer sur ces cases qui étaient rouges sans se tromper pour passer au niveau suivant avec un tableau plus grand et plus de cases rouges.

vbacrumble · 8 Mars 2009

Re : clics de souris

Re

Oui cela ressemble au jeu Simon des années 80 (sauf qu'il y avait du son en plus )

doctojones · 8 Mars 2009

Re : clics de souris

ayé ! j'ai retrouvé le nom : MEMORY MATRIX
Communiqué de presse : Lancement du jeu Memory Matrix sur iPhone - Actus-Telephonie

vbacrumble · 8 Mars 2009

Re : clics de souris

Re

Tu as vu qu'il existait une version flash de ce jeu

(donc jouable sur PC) sur le site de l'éditeur ?

Désolé, mais je suis en train d'y jouer plutôt que de refaire le jeu en VBA 😉

Excel-lent · 8 Mars 2009

Re : clics de souris

Salut Vbacrumble,

Je savais que pour compresser encore mieux mon code, je devais compresser ma condition IF-THEN-ELSE en IIf, mais n'y arrivant pas en 5mn, j'ai abandonné!

vbacrumble à dit:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.Interior
  If Not Application.Intersect(Target, [A2:D4]) Is Nothing Then
       .ColorIndex = IIf(ActiveCell = 1 And .ColorIndex = 6, 37, 6)
  End If
End With
End Sub

Ta macro fonctionne mais ne fait pas exactement pareil que la mienne
La tienne colorie en jaune les cellules avec la valeur 0, alors qu'il ne faut pas y toucher!

Mais grâce à toi, j'ai pu récupérer ta logique et l'adapter à mon code. Je t'en remercie, tu m'as permis de me surpasser encore plus.

Voici ci-dessous ma macro de départ :

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.Interior
  If Not Application.Intersect(Target, [A2:D4]) Is Nothing Then
      If ActiveCell = 1 And .ColorIndex = 6 Then
         .ColorIndex = 37
      Else
         If ActiveCell = 1 Then .ColorIndex = 6
      End If
  End If
End With
End Sub

La même comprimé encore mieux :

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveCell.Interior
  If Not Application.Intersect(Target, [A2:D4]) Is Nothing Then
  .ColorIndex = IIf(ActiveCell = 1 And .ColorIndex = 6, 37, IIf(ActiveCell = 1, 6, xlNone))
  End If
End With
End Sub

Merci encore à toi Vbacrumble.

Bonne fin de soirée à tous

vbacrumble · 8 Mars 2009

Re : clics de souris

Re

Merci Excel-lent , je n'étais pas loin.

Tu as été voir la version flash du jeu ?

C'est amusant 😉

clics de souris

doctojones

Guest

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Excel-lent

XLDnaute Barbatruc

Pièces jointes

doctojones

Guest

Excel-lent

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Excel-lent

XLDnaute Barbatruc

doctojones

Guest

Pièces jointes

vbacrumble

XLDnaute Accro

doctojones

Guest

vbacrumble

XLDnaute Accro

doctojones

Guest

vbacrumble

XLDnaute Accro

Excel-lent

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Discussions similaires

clics de souris

doctojones

Guest

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

doctojones

Guest

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

doctojones

Guest

Pièces jointes

XLDnaute Accro

doctojones

Guest

XLDnaute Accro

doctojones

Guest

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency