Formules ou macro
Résolu
Bonjour,
Quelqu'un peut-il me concocter une macro pour afficher dans Q2(Horizontale) le n° dans la colonne A, qu'aprés avoir cliquer sur Nouvelle partie sinon rien ne s'affiche dans H2 puis Nouveau tirages simultanés quand apparait dans Gagnant de G2 a G716 le chiffre 1.
Même chose pour R2(2 Horizontales) quand apparaît dans Gagnant de G2 a G540 le chiffre 2.
Même chose pour S2(Verticale) quand apparaît dans Gagnant De H2 a H540 le chiffre 1.
Même chose pour T2(2 Verticales) quand apparaît dans Gagnant de H2 a H540 le chiffre 2.
Même chose pour U2(1 Diagonale) quand apparaît dans Gagnant de I2 a I540 le chiffre 4.
Même chose pour V2(2 Diagonales) quand apparaît dans Gagnant de J2 a J540 le chiffre 8.
Même chose pour W2(1 Diagonale) quand apparaît dans Gagnant de K2 a K540 le chiffre 4.
J'ai mis une pièce jointe
Si vous voulez vous pouvez modifier la macro existante pour le tirage.Je l'ai trouvé dans le forum.
J'espère que vous allez comprendre mon exposé.
Merci de votre aide qui me sera précieux.
https://www.cjoint.com/c/ECnuyA2S8Gg
Quelqu'un peut-il me concocter une macro pour afficher dans Q2(Horizontale) le n° dans la colonne A, qu'aprés avoir cliquer sur Nouvelle partie sinon rien ne s'affiche dans H2 puis Nouveau tirages simultanés quand apparait dans Gagnant de G2 a G716 le chiffre 1.
Même chose pour R2(2 Horizontales) quand apparaît dans Gagnant de G2 a G540 le chiffre 2.
Même chose pour S2(Verticale) quand apparaît dans Gagnant De H2 a H540 le chiffre 1.
Même chose pour T2(2 Verticales) quand apparaît dans Gagnant de H2 a H540 le chiffre 2.
Même chose pour U2(1 Diagonale) quand apparaît dans Gagnant de I2 a I540 le chiffre 4.
Même chose pour V2(2 Diagonales) quand apparaît dans Gagnant de J2 a J540 le chiffre 8.
Même chose pour W2(1 Diagonale) quand apparaît dans Gagnant de K2 a K540 le chiffre 4.
J'ai mis une pièce jointe
Si vous voulez vous pouvez modifier la macro existante pour le tirage.Je l'ai trouvé dans le forum.
J'espère que vous allez comprendre mon exposé.
Merci de votre aide qui me sera précieux.
https://www.cjoint.com/c/ECnuyA2S8Gg
8 réponses
Résumé de la discussion
Le besoin porte sur une macro Excel qui affiche dans Q2, R2, S2, T2, U2, V2 et W2 les numéros de grille correspondants après l’activation d’une nouvelle partie et selon les codes de gain présents dans la feuille Gagnant (1, 2, 4, 8 selon l’orientation). Une solution fonctionnelle proposée consiste en une macro nommée gagnants qui parcourt la feuille Gagnant par blocs, récupère les numéros de grille lorsque les repères H, HH, V, VV, DD, 2D, DG apparaissent, et écrit les résultats concaténés sur la feuille Jeu dans les cellules R2 à R9. Pour étendre le fonctionnement, il est envisageable de dupliquer la macro (par exemple sous Gagnant1) et de l’enchaîner après la première, avec un bouton Nouvelle Partie qui réinitialise les données pertinentes. Enfin, il est discuté d’optimiser l’affichage pour un grand nombre de grilles (600+) en plaçant les résultats sur une autre feuille et en ajustant les adresses des cellules pour limiter la largeur du tableau dans Jeu.
-
Bonjour
une macro pour afficher dans Q2(Horizontale) le n° dans la colonne A, qu'aprés avoir cliquer sur Nouvelle partie sinon rien ne s'affiche dans H2 puis Nouveau tirages simultanés quand apparait dans Gagnant de G2 a G716 le chiffre 1
Rien compris !
Peux tu réexpliquer avec un exemple précis ?
Cdlmnt
-
Bonjour
Les n° dans la colonne A ce trouve dans la feuille Gagnant -
Bonjour
Comme dit via55 (salut à toi), difficile de comprendre ce que tu veux
Peux tu décrire une séquence sous la forme
Nouvelle partie
nouveau tirage
le n° sorti est 56
ce n° apparait dans la feuille gagnant dans plusieurs "cartons" 2-5-9 ...
seul le carton n° 2 est marqué par deux 1 (DD et 2D)
Et là, que fait on ? expliques ....
On fait nouveau tirage
Que doit il se passer, expliques .....
RQ. Au passage, est ce que numax garde toujours la valeur 75 ? Si oui, on peut faire le remplissage de la feuille Jeu via (pas 55 cette fois ;-) la macro
Cdlmnt -
Re,
Salut ccm :)
Sans plus d'explication, avec ce que j'ai pu comprendre tout seul une proposition avec formules pour déterminer les gagnants et macro pour ne plus comptabiliser les résultats acquis aux prochains coups et remise à zéro pour nouvelle partie
https://www.cjoint.com/?0CowpsSQDCy
Cdlmnt
-
Bonjour Via55
Merci de vous occuper de mon problème, c'est ce que je cherche et çà marche très bien, mais un petit problème surviens quand J'efface certaine cellules et que je choisi les grilles dans la colonne A de 7 a 12 par exemple(toutes les autre sont vides), après tirage le programme m'affiche une erreur dans un cadre Fin Débogage , quand je clique sur Débogage je suis dans la macro en bleu une certaine commande suivi de 2, 23.
Serrait-il possible de corriger en sachant que j'ai d'autre grilles a mettre(j'en ai 600).
Je ne suis pas fort en VBA ni en formule, mais j'essai de comprendre et de modifier quand je le peut.
Merci beaucoup de votre aide -
@mic6259Bonjour mic6259
Quelles cellules effaces-tu ?
Comment choisit-tu certaines grilles et pourquoi les autres sont vides ?
Je ne comprends pas le bug avec si peu d'infos
car en principe la macro recherche dans la colonne A de Gagnant les n°s qui s'affichent de G2 à W2 de Jeu; mais ces n°s ne s'affichent qu'en fonction des formules des colonnes H à U de Gagnant qui ne renvoient un résultat que lorsqu'une grille est gagnante
Si tu as au final 600 grilles cela ne posera de problèmes mais veux tu dire que certaines grilles ne seront pas utilisées ? Comment dans ce cas tu indiqueras celles qui le sont et celles dont il ne faut pas tenir compte
Dans l'attente de ces précisions et de toutes les autres que tu jugeras bon pour avancer.Si on a toutes les données de la problématique dès le début c'est quand même plus facile que de faire du rafistolage après coup !
Cdlmnt -
@via55J'efface manuellement les cellules dans Gagnant de 1 a 6 et de 13 a 90,
donc il reste 7 a 12
Dans Jeu après plusieurs clic sur Nouveau tirage il ce produit une erreur de Débogage sinon quand tous les chiffres dans la colonnes y sont pas de problème
Merci encore pour rechercher le problème -
@mic6259Il n'y a pas de problème avec les macros tant qu' on ne touche pas aux cellules de la feuille Gagnant
Pourquoi effacer manuellement des cellules ? je ne comprends pas l'intérêt ?
Et tu ne réponds pas à mes questions précises, on ne peut pas avancer comme ça!
Je te repose donc la question autrement :
Dans Gagnant tu vas avoir toutes les grilles possibles avec leur n° en colonne A, OK, faut-il prévoir que certaines grilles soient mises hors course à un moment ?
Dans ce cas il ne faut pas effacer mais prévoir une colonne pour valider ou telle ou telle grille
Dans l'attente -
@via55J'ai laisser un commentaire mais pas chez via5 mais dans la discussion
Excuser moi
-
-
Le principe c'est de choisir les grilles et jouer avec celle qu'on a choisis
et ensuite de savoir si son carton a gagné mais pas celle que l'on a pas choisis.
Par contre je suis d'accord pour prévoir une colonne avec les grilles choisis mais je ne sais pas comment faire.
Merci beaucoup -
OK
Plus clair!
Où veux tu valider les grilles choisies pour jouer ?
Dans la feuille Gagnant ou dans le feuille Jeu ?
-
-
@mic6259OK
Donc le principe de départ, qu'on soit bien d'accord, c'est qu'aucune grille n'est choisie sur les 600 (tu maintiens le chiffre de 600?) et dans la feuille Attribuer on coche un certains nombre de grilles (en face de leur n°) avant de lancer le jeu ? -
@via55Oui c est çà mais j'en est environ 1800 si possible à mettre dans Gagnant 2 et Gagnant 3 mais pour l'instant ça me va très bien
-
-
@via55Super merci beaucoup çà marche.
Vous êtes le seul a avoir compris le programme, j'ai laissé des message sur différents forums et j'ai toujours eu des réponse farfelues sans essayer le fichier.
Encore merci
Ps: j'ai noté votre nom(via55) au-cas ou
-
-
Salut via55
Je vois que le sujet a bien évolué depuis .... peux tu mettre un exemplaire du fichier bingo-4 au format excel 2003
merci et bonne journée à tous les deux-
Salut ccm
Voilà : mais j'ai eu le message de non compatibilité concernant certaines formules !
https://www.cjoint.com/?0CqlTbows2G
Bonne journée également -
@via55Désolé çà ne marche pas.
De Q2 a W2 rien ne s'affiche par contre après la fin du tirage dans X2 affiche 1 dans le fichier joint.
Merci
https://www.cjoint.com/c/ECqmYABqvo5 -
-
@via55Moi aussi trop d'imbrications pourtant je suis sur excel 2010
Cdlmnt -
@mic6259Le fichier fonctionnait avant, je n'ai pas changé les formules !
Prends la bonne version : https://www.cjoint.com/?0CqozuoJ8cc
Je m'absente cet après-midi, si un autre souci je regarderai ce soir
Cdlmnt
-
-
Merci via55
Je vais voir ce que je peux faire avec les formules non compatibles 2003
Bon après midi-
Re CCM
Nouvelle version,(en 2007 : https://www.cjoint.com/?0CqtYk3OttD
nouvelle formule :
=SI(G2="NON";"0";SI(ET(H2=1;H3="");"H";SI(ET(I2=2;I3="");"HH";SI(ET(J2=1;J3="");"V";SI(ET(K3="";K2=2);"VV";SI(M2=8;"2D";SI(ET(L2=4;L3="");"DD";SI(ET(N2=4;N3="");"DG";""))))))))
Bien cdlmnt -
@via55Salut via55
J'ai mis les formules à la sauce excel 2003, en fait, il suffit d'intégrer G2="OUI" dans chaque condition ce qui ramène le nombre de SI imbriqués au maxi fatidique (il y a des jours comme ça)
Ton dernier lien est inactif, donc pas vu mais au cas ou, je le préfèrerai sous excel 2003
Bon après midi -
@ccm81Salut ccm81
Je ne comprends pas pourquoi le lien n'est plus actif
Voilà le dernier fichier au format 2003, j'ai modifié les formules selon ton conseil
https://www.cjoint.com/?0CrqGmdlNw1
Bon après-midi également -
@via55je crois que tu as loupé le format :-(
-
@ccm81Oui ! Apparement j'ai pris le format au dessus dans le menu déroulant en allant un peu vite
Voilà le bon mais de nouveau problème de trop de SI
formule qui fonctionne sous 2007 ;
=SI(ET(H2=1;H3="";G2="OUI");"H";SI(ET(I2=2;I3="";G2="OUI");"HH";SI(ET(J2=1;J3="";G2="OUI");"V";SI(ET(K3="";K2=2;G2="OUI");"VV";SI(ET(M2=8;G2="OUI");"2D";SI(ET(L2=4;L3="";G2="OUI");"DD";SI(ET(N2=4;N3="";G2="OUI");"DG";"")))))))
-
