Re : Besoin aide pour trinôme avec VBA
Bonjour Backhandshot, Staple1600, phlaurent55,
Bonne année et meilleurs voeux à vous et à vos proches,
(...) En attendant mapomme
![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
(...)
Voilà, voilà, je viens, j'arrive...
Pas facile de me replonger dedans d'autant plus que les commentaires n'était pas particulièrement nombreux (c'est un doux euphémisme)
Voici une version pour les triplets, version remaniée et commentée. A mon humble avis, on atteint la limite de l'exercice car la quantité de calculs et données augmente de manière vertigeuse avec celle des nUplets.
Pour n= 2 et 7000 enregistrements, il y a (selon mes calculs
![Confused :confused: :confused:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
) 1 330 000 paires à traiter pour les répartir sur les 2 415 paires possibles.
Pour n= 3 et 7000 enregistrements, il y a (toujours selon mes calculs
![Confused :confused: :confused:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
) 7 980 000 triplets à traiter pour les répartir sur les 54 740 triplets possibles.
Pour n= 4 et 7000 enregistrements, il y a (encore selon mes calculs
![Confused :confused: :confused:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
) il y a 33 915 000 quadruplets à traiter pour les répartir sur les 916 895 quadruplets possibles.
Comme je tiens à ma p'tite vieille bécane fait maison, je ne tenterai même pas.
Dans le fichier joint, 4 boutons:
- Le premier procède à 7000 tirages de 20 nombres (entre 1 et 70) et sans doublon.
- Le second ordonne chaque tirage, examine tous les triplets des 7000 tirages et affiche les résultats.. La barre d'état montre l'avancement en affichant la ligne en cours de traitement.
- Le troisième restaure des paramètres d'environnement et plus particulièrement rétablit le calcul auto. ainsi que la restauration de la barre d'état.
- Le quatrième renvoit ici.
Attention: la colonne W doit rester vide. La première ligne sous le tableau des tirages doit aussi rester vide.
Le code étant assez long (puisque commenté
![Stick Out Tongue :p :p](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
), je ne le copie pas dans le message.
Quelques durées (7000 tirages - meilleurs temps):
- Procéder aux tirages: 1 sec.
- Initialisation pour le comptage dont tri des tirages: 5 sec.
- Comptage et stockage des triplets et n° de tirage associés: 150s
- Ecriture des résultats sur la feuille de calcul: 34 sec.