Démineur

Pour partager vos applications (Excel, Calc et Google Sheets) avec les autres membres
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 1'996
Appréciations reçues : 276
Inscrit le : 4 décembre 2004
Version d'Excel : 2016 FR
Version de Sheets : FR
Contact :
Téléchargements : Mes applications

Message par Sébastien » 22 août 2019, 10:55

Bonjour ExcelCoreGame,

Je t'invite à corriger ce bug qui apparaît au démarrage avant de pouvoir traiter ta demande d'ajout dans les téléchargements :
bug.png
Je suis aussi surpris de voir que ton dernier fichier sur ce post faisait environ 0.5mo et le fichier soumis fait 10.9mo ::o

Regarde si tu peux alléger un peu le fichier ...

Cordialement,
Sébastien
E
ExcelCoreGame
Membre fidèle
Membre fidèle
Messages : 425
Appréciations reçues : 14
Inscrit le : 24 octobre 2017
Version d'Excel : 2007FR

Message par ExcelCoreGame » 22 août 2019, 14:43

Salut Sébastien

Hhmm c'est embêtant cette erreur car tout fonctionne correctement .... sur excel 2007 comme indiqué dans ma description.
Tu es sur une version plus récente?

Concernant la taille je vais voir pour réduire mais je pense que cela correspond aux cases (MFC, bordure, couleur etc) que j'ai dans des feuilles cachés pour permettre la création et mise en forme d'une grille d'1 million de case en quelque seconde. Peut être aussi mes images
Je vais voir pour baisser le poids si je peux mais je ne sais pas trop.

Après je peux en faire un .zip de 3mo mais bon 10mo ça se télécharge rapidement, je pensais pas que c'était un souci, comme tu préfères
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'665
Appréciations reçues : 322
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 22 août 2019, 15:13

Bonjour,

Pour être compatible il faut parfois faire un test de version VBA et déclarer les fonction avec PTRSAFE pour VBA 7 et normalement pour les autres.
Sur mon application "Snake" vous en avez l'illustration.
Dans le cas VBA 7 il faut aussi définir les variables "Long" en "Longptr"

Ceci se voit également sur mon code.

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 1'996
Appréciations reçues : 276
Inscrit le : 4 décembre 2004
Version d'Excel : 2016 FR
Version de Sheets : FR
Contact :
Téléchargements : Mes applications

Message par Sébastien » 22 août 2019, 16:38

ExcelCoreGame a écrit :
22 août 2019, 14:43
Tu es sur une version plus récente?
2016
ExcelCoreGame a écrit :
22 août 2019, 14:43
Après je peux en faire un .zip de 3mo mais bon 10mo ça se télécharge rapidement, je pensais pas que c'était un souci, comme tu préfères
Ce n'est pas un problème, je trouve ça juste un peu lourd pour un fichier Excel mais tu peux le laisser comme ça. Je te l'ai surtout signalé parce que le fichier de ton post sur le forum faisait 0.5mo ...
Sébastien
E
ExcelCoreGame
Membre fidèle
Membre fidèle
Messages : 425
Appréciations reçues : 14
Inscrit le : 24 octobre 2017
Version d'Excel : 2007FR

Message par ExcelCoreGame » 22 août 2019, 17:50

Je vais regarder le code du Snake @LouReed mais pour information par exemple "Bubble Cubes", "Méga Bloks 4x4" et "Machine à sous" ne fonctionne pas sous Excel 2007

Edit: je viens de voir le snake, il fonctionne niquel :), je vais voir si en modifiant le code cela corrige le soucis.
Du coup pour tes autres jeux il faudrait une update @LouReed j'imagine comme dans le snake

Si je ne trouve pas de solution (à part acheter excel 2016 ^^), on pourra laisser le jeu juste pour la version 2007? je ne sais pas trop quel version de jeu les gens utilisent hmm c'est chiant cette histoire

Je ne pensais pas avoir de soucis de compatibilité dans mon sens snif :(, la seule fonction un peu spécial on va dire je pense que c'est la détection du clique droit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

'The function returns whether a key is pressed or not
 Public Function KeyPressed(ByVal Key As Long) As Boolean
 KeyPressed = CBool((GetAsyncKeyState(Key) And &H8000) = &H8000)
 End Function
Je viens de faire un test avec
#If VBA7 Then
    ' fonction de détection de touche "utilisée"
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As LongPtr) As Integer

#Else
    ' fonction de détection de touche "utilisée"
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Key As Long) As Integer

#End If
Je te laisse tester Sébastien, tu me diras si le problème vient de la
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'665
Appréciations reçues : 322
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 22 août 2019, 18:36

Bonsoir,

vous avez tout à fait raison !
Je n'ai pas pris soin de mettre ce type de code sur toutes mes applications... C'est bien pourquoi j'ai stipulé qu'il fallait regarder "Snake" ! :lol:
Maintenant, vu le retour de bug de ces dernières... je pouvais penser qu'il n'y avait pas de soucis ! :lol:

Dans tous les cas cela ne mange pas de pain de le mettre et de s'assurer un maximum de compatibilité ! :-)

@ bientôt (peut être pour les mise à jour)

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
E
ExcelCoreGame
Membre fidèle
Membre fidèle
Messages : 425
Appréciations reçues : 14
Inscrit le : 24 octobre 2017
Version d'Excel : 2007FR

Message par ExcelCoreGame » 22 août 2019, 18:46

Moi c'est bête j'avais testé pas mal d'application sauf le snake qui fonctionne parfaitement ^^
J'espère que c'est juste ça qui bloquait mais je pense que oui car comme j'ai des gestions d'erreur dans les modules et que ce n'est pas entré dedans c'est surement cette déclaration de fonction qui merde
1 membre du forum aime ce message.
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'665
Appréciations reçues : 322
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 22 août 2019, 22:04

Je vais regarder le code du Snake @LouReed mais pour information par exemple "Bubble Cubes", "Méga Bloks 4x4" et "Machine à sous" ne fonctionne pas sous Excel 2007
En effet 2007 et inférieur ne connaissent pas le "ptrSafe" du coup les API Windows ne fonctionnent pas ! :cry:

Correction est faite sur ces applications, reste à faire le tour des autres et de crier haut et fort qu'il va y avoir une mise à jour "complète" des applications proposées en téléchargement de la part de LouReeD !

Du travail en perspective pour Sébastien. Courage !

Merci encore pour ces retours.

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'665
Appréciations reçues : 322
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 22 août 2019, 22:06

Il se peut même qu'il faut vérifier le nombre de bit de Windows :
#If VBA7 Or Win64 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Longptr)
@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
E
ExcelCoreGame
Membre fidèle
Membre fidèle
Messages : 425
Appréciations reçues : 14
Inscrit le : 24 octobre 2017
Version d'Excel : 2007FR

Message par ExcelCoreGame » 22 août 2019, 22:33

je testerais et je te dirais si cela fonctionne chez moi :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Le Démineur - Excel
    par Sharney » 24 novembre 2015, 22:24 » dans Applications
    1 Réponses
    1055 Vues
    Dernier message par Sharney
    29 novembre 2015, 02:04