[vba] tower battle 4

Soyez le premier à donner votre avis sur cette source.

Vue 2 658 fois - Téléchargée 191 fois

Description

Jeu stratégique qui consiste à abattre la tour de son adversaire le premier en jouant avec 400 cartes différentes. Leur combinaison permet d'élaborer des stratégies très sophistiquées, avec rebondissements en cours de partie assurés. Jouable seul contre l'ordi ou à 2 au tour par tour, ce jeu vous garantira de nombreuses heures d'affrontements acharnés avant d'en venir à bout.

Source / Exemple :


'cf. fichier joint

Conclusion :


'Please have fun

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
14
Date d'inscription
vendredi 20 août 2010
Statut
Membre
Dernière intervention
2 septembre 2010

Bonjour,

Merci pour ce commentaire. Concernant les commandbars désactivées, j'avais repéré le problème et l'avais corrigé : regarde dans le module ThisWorkbook, je les réactive pourtant ainsi :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cmdb As CommandBar
For Each Cmdb In Application.CommandBars
Cmdb.Enabled = True
Next Cmdb
Application.DisplayFullScreen = False
ThisWorkbook.Close True
End Sub
Qu'est-ce qui ne va pas dans ce code ?
Messages postés
45
Date d'inscription
lundi 23 juin 2003
Statut
Membre
Dernière intervention
24 février 2009

Attention, tu as désactiver le clic droit en Excel mais lorsque tu quittes le jeu, tu as oublié de le réactivé.
Merci de corriger.
PS : voici la commande qui réactive le clic droit
Application.CommandBars("cell").Enabled = True

Même commentaire dans les versions précédentes du jeu.
Petit moins, programme pas trés lisible pour une programmeur ou quelqu'un qui est du métier.
Par contre, je te félicite pour le résultat de ce programme fait en VBA sous Excel.

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.