XL 2010 passer de formule a une macro

[lao31]

Bonjour,

Vous trouverez ci-joint un fichier que j'ai legerement modifier pour satisfaire mes besoins. apres l'avoir pris sur un forum de blackjack je crois j'ai voulu le changer mais je me heurte a mon incompetence en VBA.
Malheureusement ma façon de faire me semble assez primaire comme manière, mais je ne vois pas comment faire autrement.
Est il possible d'effectuer les calculs des colonnes G a N en les intégrant dans la macro ?
En gros j'aimerai avoir le resultat de la colonne N dans la colonne C
Pour faire plus clair, je voudrais pouvoir compter les cartes d'un tirage de black jack au fur et a mesure du tirage
7 8 et 9 = 0
as, roi, dame, valet, 10 = -1
et 2, 3 ,4 , 5, 6 = 1
couleur classique
sachant qu'il y a 6 jeux de carte ====> 312 tirages unique
en fonction du tirage serait il possible d'avoir le compte dans la colonne C ?
Une requete supplementaire si possible:
est il possible de demander ( boite de dialogue par exemple ) combien de tirage je souhaite ( sur les 312 possible.) ?
j'espere être assez clair dans ma demande.
Merci en tout cas pour votre aide.
Cordialement

Michel

 

[pierrejean]

Bonjour Michel

Voila pour la colonne C
Pour le reste je n'ai pas compris ta demande

 

[lao31]

Bonjour Pierrejean,
Cela faisait bien longtemps, toujours fidèle et toujours de bon conseil.
J'ai tenu compte de ton aide.
J'ai une nouvelle fois modifier en tenant compte de ta reponse.
Pour ce que tu ne comprends pas, je comprends cela n'etait pas tres clair.
Je m'explique: Actuellement quand j'appuie sur le bouton tirage, cela me donne le 1er tirage (1/312) possible. et cela a chaque fois jusqu'au 312 qui est la derniere combinaison.
Ce que je souhaiterai si cela est possible est :
quand je cliquerai sur le bouton tirage, l'on me demandera combien de tirage je souhaite, de ce fait je pourrai demander et avoir les x tirages voulus.
ex: 25 ou 59 ou X tirages et il me les donnera en une seule fois. Pour ne pas etre obligé de cliquer chaque fois pour un nouveau tirage.
Est ce que cela est plus clair ?
Merci en tout cas pour ton aide.
Cordialement

Michel

 

[lao31]

Bonjour ,

Y a t il quelqu'un pour jeter un oeil sur ma demande ?
Je ne comprends pas comment je peux passer au tirage de pas a pas a un tirage X que je demanderai.
Est ce une boucle ? ou dois je changer le Do While ?

Cordialement
<michel

 

[pierrejean]

Re

Vois si cela te convient

 

[lao31]

Bonjour PierreJean,

Desolé je te reponds tardivement, mais je viens d'aiirver en cure donc le temps de m'adapter et de trouver une connexion wifi, cela m'a pris du temps.
Avec ton dernier post, il y a quelque chose qui m’échappe ou qui manque.
Je m'explique:
si je demande un nombre de tirage > a 256 cela me crée un message d'erreur. (depassement de capacité )
En fait, il y a 312 tirage possible et le compte final ( col C ) doit etre egale a 0 cela prouve qu'il n'y a aucun tirage identique. Alors j'ai voulu verifier avec 312 tirage et cela ne fonctionne pas.
Est ce que cela provien
du fait que Dim X as byte ?
si je comprends bien Bytes va jusqu'a 256 ?

mon souhait est:
de choisir un nombre de tirage jusqu'a 312 ( tous ) et qu'il n'y ai aucun tirage identique.
Si a 312 j'obtiens un compte ( colonne C ) = 0 c'est qu'il n'y a aucun tirage identique.
j'ai tapé machinalement 312 pour controler que je n'ai aucun tirage identique et j'ai donc eu ce message d'erreur ( depassement de capacité).
Cordialement

Michel

 

[lao31]

re,

J'ai testé sur de nombreux tirages, et je constate que certains tirages se repetent.Il faudrait que quelques soit le nombre de tirage demandé jusqu'a un maximum de 312 ( c le nombre maxi de combinaison) aucun tirage soit le même.
Dans la 1ere macro, cela fonctionnait, le seul soucis c'est que je devais taper 1 par 1 les tirages donc perte de temps pour moi.
Mon but ultime est de simuler un jeu de blackjack en comptant les cartes a chaque tirage et voir le nombre max de + 1 et le nombre max de -1 . au 312 tirages le compte doit etre a zero.
voir le film vegas 21 je crois ou un proffesseur se servait de ses eleves pour gagner sur les casinos.
C plutot moral car pas interdit. Mais les casinos, n'aiment pas perdre, et depuis ils se sont adapter en metant des macines qui melange apres chaque tirage.
donc aucun moyen a long terme d'etre gagnant.
Cordialement
Michel

 

[lao31]

Bonjour ke forum, pierrejean.
Pas de suite dans ma demande, ou ai je mal formulé ma demande?
Ou cas où je suis dispo.
Cordialement
Michel

 

[pierrejean]

Re

Vois si cela va mieux

 

[lao31]

RE,

d'apres mes essais, cela n'est pas bon.
j'ai demandé plusieurs tirages et certains ont des combinaisons qui sortent plusieurs fois.
j ne dois avoir aucune combinaison identique qu'elle que soit le nombre de tirage demandés.
ex: j'ai demandé 125 tirges apres avoir erasé un tirage precedent et j'i eu trois fois le 8 pique cela ne doit pas etre possible.
1 tirage ne doit pas avoir de combinaison identique.
cordialement
Michel

 

[lao31]

re pour d'ailleurs etre sur qu'il n'y ai pas les memes combinaisons, si tu ddemande un tirage de 312, le dernier compte devrait etre a zero.
cordialement
michel

 

[pierrejean]

Re

Il va te falloir retrouver celui qui a conçu le tirage
Pour ma part je n'ai fait qu'une adaptation a ta demande !!!!

 

[lao31]

Re

Je vais voir donc de ce coté.
En regardant de plus pres le post initial a savoir tirage 1 par 1 jusqu'a 312 possible je m'aperçois que c quasiment les memes combinaisons qui ressortent
EX je fais plusieurs fois 312 tirages j'ai presque toujours les memes combinaisons sauf les quelques premieres apres avoir fait eraz.
vais revenir sur le forum initial et creuser davantage.
merçi en tout cas de ton aide, tu m'as donné des idées pour continuer, merçi pour cela.

Cordialement
Michel