BRIKZ - UN JEU DE STRATÉGIE SUR EXCEL

cuq Messages postés 345 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 21 mars 2008 - 13 oct. 2006 à 12:19
kfjm Messages postés 6 Date d'inscription mardi 22 novembre 2005 Statut Membre Dernière intervention 30 juillet 2014 - 30 juil. 2014 à 15:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/39895-brikz-un-jeu-de-strategie-sur-excel

kfjm Messages postés 6 Date d'inscription mardi 22 novembre 2005 Statut Membre Dernière intervention 30 juillet 2014
30 juil. 2014 à 15:27
Merci pour cette bonne idée !
fransoze Messages postés 5 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 15 octobre 2011
15 oct. 2011 à 15:17
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

(...)
Softmama Messages postés 14 Date d'inscription vendredi 20 août 2010 Statut Membre Dernière intervention 2 septembre 2010
2 sept. 2010 à 00:10
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
OB0ne Messages postés 1 Date d'inscription jeudi 27 mai 2010 Statut Membre Dernière intervention 27 mai 2010
27 mai 2010 à 21:18
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 !
questml Messages postés 1 Date d'inscription mercredi 6 septembre 2006 Statut Membre Dernière intervention 8 novembre 2006
8 nov. 2006 à 19:31
Génial, bonne continuation ... ;-)
nallno Messages postés 14 Date d'inscription jeudi 22 avril 2004 Statut Membre Dernière intervention 10 décembre 2008
21 oct. 2006 à 08:42
Bonsoir,
pourquoi ça marche pas sous openoffice ?
(j'ai activé les macros )
cuq Messages postés 345 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 21 mars 2008 2
13 oct. 2006 à 16:25
Par contre attention je comfirme l'addiction : 10566 et j'ai même pas triché .. ( je tiens à dispo la copie d'écran )

Devrais avoir un truc du genre tu envois tes scores sur un site pour faire le TOP 10 ...

J'adore ..
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
13 oct. 2006 à 16:00
Super !
cuq Messages postés 345 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 21 mars 2008 2
13 oct. 2006 à 12:19
On seul mot Super !