1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Jeux
  5. Brikz - un jeu de stratégie sur excel

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

Télécharger le projet
Commenter

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!
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
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 !
Signaler
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

(...)
Signaler
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
Signaler
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 !
Signaler
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
S'inscrire maintenant

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.

Du même auteur (Sylvaninof)