Calculer les écarts de combinaisons de 5 numéros

bonjour le forum

je cherche à calculer les écarts pour des combinaisons à 5 chiffres.

Dans le fichier joint j'ai mis la base de données en feuille 1 et les combinaisons en feuille 2 et le résultat des écarts de 5 combinaisons que j'ai fait manuellement pour info(si je ne me suis pas trompé)

par avance merci

141eccombi.zip (138.02 Ko)

Bonjour,

Hum...

Dans tes 3 premiers exemples les lignes qui comporte la combinaison

1 6 8 17 65

sont les lignes

61, 62, 102

... les lignes qui comporte la combinaison

1 8 12 17 21

sont les lignes

62, 63, 102

... les lignes qui comporte la combinaison

5 10 14 42 69

sont les lignes

22, 33, 49, 94

A partir de ces constatations comment calcules-tu tes écarts ?

A+

bonjour galopin01, le forum

je parts de la ligne 2 en comptant jusqu'à la ligne ou se trouve la combinaison, je me suis trompé pour le premier écart qui est 60 et non 61, puis je recommence 1,2 jusqu'à trouver de nouveau la combinaison.

j'ai modifier le fichier joint en espérant qu'il sera un peu plus clair pour la compréhension.

on peut supprimer la ligne "tirages" et partir de la ligne 1 si cela est plus facile pour les calculs.

merci

67eccombi.zip (141.92 Ko)

Bonjour,

Comprend pas ton explication : ça me semble incohérent avec ton 1er fichier : je n'ai pas regardé le 2ème...

Ci-joint (en feuille 2) les résultats de ma macro. Sont affichées les lignes ou on trouve la combinaison

il est pas bien sorcier d'en déduire les écarts...

A+

146eccombitrie-vg.xlsm (201.02 Ko)

bonjour galopin01, le forum

merci pour ta réponse.

autre sujet, j'ai une formule qui totalise les unités,dizaines,vingtaines, etc

pour les unités "=NB.SI(A1:J10;"<11") la ok

pour les vingtaines j'ai fais "=NB.SI(A1:J10;">10<21")" la j'ai résultat 0

ou est l'erreur.

merci

Bonjour,

Pour la route j'ai reprogrammé ma dernière solution sans utiliser de formule.

Le classeur est mis à jour à jour avec les derniers tirages. et permet des mises à jour ultérieures.

Le classeur permet de changer les combinaison testées (et leur nombre)

De plus j'ai tout recalculé avec les 1246 derniers tirages.

Outre les N° de ligne le programme affiche aussi les écarts.

Le recalcul des écarts prend un quinzaine de secondes.

Pour la question suivante :

=SOMMEPROD(((A1:J10)>10)*((A1:J10)<21))

A+

93keno-vg1.xlsm (217.68 Ko)

Le dernier fichier a été modifié pour corriger un bogue

j'ai vu que tu avais posé le même genre de question pour EuroM.

Le fichier adapté pour EuroM en pièce jointe:

A+

135eurom.xlsm (55.32 Ko)

bonjour galopin01, le forum

c'est parfait, merci encore

cordiales salutations

Bonsoir,

Hum...

En bricolant sur une autre solution, je me suis rendu compte que la version Keno_VG1.xlsm était boguée...

Voici la correction (en plus ce qui ne gâte rien) la macro travaille directement sur des listes sans aucune mise en forme.

Le temps de traitement est toujours de l'ordre de 20" (pour le calcul des écarts)

A+

129keno-vg2.xlsm (266.49 Ko)

bonjour galopin01, le forum

merci pour cette nouvelle mouture, plus clair sans les n° de lignes.

juste quelques informations.

à quoi sert la 2ieme macro "galopinOri"

j'ai supprimé la feuil BD car ma base de données se trouve en Feuil1"C2:V..." dans mon classeur d'origine.

la macro fonctionne bien, par contre la macro "nouveau tirage" m'interesse, je voudrais la mettre dans ma feuil1 comment

faut-il faire.

merci encore

Bonjour,

La 2ieme macro "galopinOri" est à supprimer.

C'est peu ou prou une copie celle qui est dans EuroM (car c'est exactement le même algo)

Je m'en suis donc servi pour reprogrammer celle-ci sans être obligé de tout repenser...

Le fichier est modifié pour une BD en C3.

Les cellules C1 et C2 ne doivent rien comporter (vide) et ne pas être incluse dans un groupe de cellules fusionnées.

Pour transférer de manière commode le UserForm dans ton classeur, il suffit d'ouvrir simultanément les 2 classeurs (le tien et le mien)

Aller dans VBAProject et faire glisser le USF "Keno" de mon projet vers le tien.

Il faut aussi faire glisser le module de classe "Classelabel" de mon projet vers le tien.

Dans le VBAProject les feuilles respectives doivent impérativement être nommées "WsB" et "WsC"

A+

153keno-vg2-c2.xlsm (266.90 Ko)
Rechercher des sujets similaires à "calculer ecarts combinaisons numeros"