Microsoft 365 créer des séquences aléatoires avec possibilités de choix, perdu et nouveau dans excel

[ricky1977]

Bonsoir,

Afin de travailler mon jeu au texas holdem poker, plus particulièrement mon jeu PREFLOP ( avant que les cartes communes ne soient distribuées ) de créer des séquences aléatoires afin que ce soit plus efficace .

je souhaite travailler par exemple mon jeu en position MP vs UTG vs3x ( middle position versus un open de UTG de x3 )
pour cela j'ai 5 choix
call
3bet or call
3bet or fold
3bet
fold

j'ai des mains établi précise que je souhaite donc apprendre qui sont les suivantes

call : 77, 88, 99, TT, 98s, T9s, JTs
3bet or call : JJ, ATs, AJs, AQs, AKs ce
3bet or fold : A2s, A3s, A4s, A5s
3bet : AQo, AKo, QQ, KK, AA
fold : toutes les autres combinaisons de 2 cartes restantes


ce que j'aimerai est ceci
pouvoir distribuer 2 cartes aléatoirement qui constitue les 52 cartes du jeu
par exemple : A8o avec possibilités de 5 choix
le but du jeu est de deviner dans quelle catégorie A8 se trouve , si je click sur le bon , une nouvelle combinaison de 2 cartes est distribuée, si je me trompe, j'ai encore 4 choix.

je n'ai pas besoin que cela soit super design non plus, même pas besoin d'avoir de vraies cartes, seulement leurs valeurs suffisent

pour matérialiser encore plus

1- distribution d'une combinaison de 2 cartes aléatoires ( 169 combinaisons )
2- possibilité de choix jusqu’à 5
3- bon choix ou mauvais - nouvelle distribution aléatoire avec jusqu’à 5 nouveaux choix


je n'ai pas beaucoup, voir pratiquement pas de connaissance excel, c'est le bon moyen de m'y mettre, j'aurai besoin d'un coup de pouce afin de savoir comment je pourrais faire pour établir ce petit programme, vers quel types de matériel me tourner afin de gagner du temps .
C'est mon premier poste ici, et je vous remercie d'avance de votre aide

amicalement
Richard

 

[Dranreb]

C'est si je ne m'abuse le Caption de l'UserForm lui même.
Le mieux c'est de faire une recherche de Caption dans le projet en cours (Ctrl+F)

 

[ricky1977]

Je me suis mal exprimé, je voulais dire les boutons de la feuille excel "entrainement", "archivage", ensuite je voudrais juste changer "bonne réponse" par "good answer" et "c'était ... "par "it was ...", ceci est inscrit dans le code c'est bien cela, si je le trouve je peux le remplacer ?

 

[Dranreb]

Là il faut se mettre en mode Création dans Excel, menu développeur, groupe Contrôles et demander les propriétés, cliquer sur les boutons …

 

[ricky1977]

Je vous remercie pour les boutons, est-ce qu'il y a un bouton recherche pour que je puisse trouver "bonne réponses plus rapidement" ?

 

[Dranreb]

C'est dans le module de l'UserForm, Private Sub CBnValider_Click()
Vous seriez tombé rapidement dessus en recherchant Caption dans tout le projet, avec le bouton Suivant de la boîte Rechercher, à mon avis.

 

[ricky1977]

Je vous remercie, surtout de votre patience

 

[ricky1977]

Bonjour, j'ai joint le fichier à une amie chinoise, qui habite donc là bas et le quizz ne fonctionne pas chez elle, elle me l'a renvoyé mais pour moi cela fonctionne parfaitement.
lorsqu'elle essai de choisir le thème principal cela donne ça

Est-ce que vous auriez une idée sur la démarche à suivre de son coté

Je vous remercie et vous souhaite une très bonne journée ( le quizz est très apprécié et salut tous votre travail, il m'aide vraiment beaucoup )


PS; j'ai joint la version qu'elle m'a envoyé

 

[Dranreb]

Bonjour.
Alors là … Notez que j'ai déjà vu des problèmes dans des pays asiatiques avec les lettres accentuées dans les noms de variables. Alors peut être qu'elle doit toutes les rebaptiser sans accent dans tout le projet.

 

[ricky1977]

c'est à dire changer tous les accents dans toutes les pages de codes ? Pour que je comprenne bien, si c'est écrit sous-thème, le remplacer par sous-theme ?
Est-ce qu'il existerait un module de traduction ? je ne sais pas si cela se fait

 

[Dranreb]

Il n'y a pas de trait d'union dans les noms de variable.
Le plus simple serait de changer tous les "é" en "e", etc. Pour chaque lettre qui pose problème, bouton Remplacer tout, dans l'ensemble du projet. D'ailleurs même dans les constantes texte, où ce ne serait normalement pas nécessaire, les lettres accentuées sont probablement illisibles chez elle.

 

[ricky1977]

comment peut-elle faire ? il y a un remplacer dans VBA ?

 

[Dranreb]

Mais bien sûr ! Même la boîte de simple recherche a un bouton "Remplacer …" permetteant d'y accéder.

 

[Dranreb]

Tiens je viens de voir que vous avez traduit "Nombre" par "Number". Je crois que dans le sens qu'il a dans l'archivage, c'est plutôt "Count".

 

[ricky1977]

ok, j'ai changé, merci
en changeant les accents j'ai de nouveau messages d'erreurs que je n'ai pas en version française.

 

[Dranreb]

Vous n'avez probablement pas renommé en conséquence le module de classe ListeAléat.
Mettez dans sa propriété (Name) un "e" au lieu du "é".