Brikz - un jeu de stratégie sur excel

Soyez le premier à donner votre avis sur cette source.

Vue 17 712 fois - Téléchargée 1 560 fois

Description

Bonjour,

Voici ma première source présentée sur ce site. Je fais du VBA dans Excel depuis un an, principalement pour le travail, mais pour m'amuser un peu j'ai développé ce petit jeu que vous connaissez peut-être.

En gros, le but est de vider une grille de briques en regroupant celles-ci selon leurs couleurs. Les points sont accordés selon le nombre de briques éliminées. Des points bonis sont appliqués pour les plus grandes sélections et si la grille est complètement vidées.

Un jeu pour le moins "addictive" selon les collègues!

À faire: toujours cliquer sur une seule brique (cellule) à la fois
À ne pas faire: sélection multiple (je gère l'erreur sur Excel 2003) et double clic sur une brique

J'apprécierai tous vos commentaires!
Bonne chance...

PS Il y a un bouton d'aide ("?") qui explique tout mais j'ai dis l'essentiel ici!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
6
Date d'inscription
mardi 22 novembre 2005
Statut
Membre
Dernière intervention
30 juillet 2014

Merci pour cette bonne idée !
Messages postés
5
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
15 octobre 2011

Super mais voici deux petites modifs pour eviter de tricher :

Ce code pour éviter de faire un clic droit afin de changer les couleurs :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Et celui la pour éviter de faire une selection multiple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Application.ScreenUpdating = False

ligne = Target.Row
Colone = Target.Column

Cells(ligne, Colone).Select

(...)
Messages postés
14
Date d'inscription
vendredi 20 août 2010
Statut
Membre
Dernière intervention
2 septembre 2010

Concernant :
For i = 2 To 13 If i 2 Then ligne 13 If i 3 Then ligne 12
(...) If i 12 Then ligne 3 If i 13 Then ligne 2

tu aurais même pu faire en une seule ligne :
ligne = 15 - i

mais sinon, intéressante comme source. Bien réalisée
Messages postés
1
Date d'inscription
jeudi 27 mai 2010
Statut
Membre
Dernière intervention
27 mai 2010

CHAR(64 + 1) = "A"
Ca doit permettre de rendre la fonction Colonne plus élégante...

Pour faire des trucs comme ça : If i 2 Then ligne 13 If i 3 Then ligne 12 If i 4 Then ligne 11 If i 5 Then ligne 10 If i 6 Then ligne 9 If i 7 Then ligne 8
Met les données dans une feuille et utilise la fonction RECHERCHEH ou RECHERCHEV. Tu peux le faire avec élégance en nommant la zone de correspondance.

Je fais le malin mais il y a plein de trucs que je n'ai pas encore pigé dans ton code...

C'est bien de faire perdre du temps à tes collègues... J'avais fait un jeu de serpent qui mange, mais en concurrence à plusieurs (en se partageant les touches claviers un truc de ouf !). Ca a coûté très cher au projet à l'époque ! Si ça t'amuse, dans le serpent normal tu crèves dès que tu te cognes. Ben là, non, tu rétrécis. Quand tu n'as plus qu'une case, si tu te cognes, là tu meurs ! Les autres serpents t'aident bien sur... Deadly addictive !
Messages postés
1
Date d'inscription
mercredi 6 septembre 2006
Statut
Membre
Dernière intervention
8 novembre 2006

Génial, bonne continuation ... ;-)
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.