Combinaison

[yanic2020]

Bonjour
cherche c'est toutes les combainaisons possible de 8 chifres de 1 à 21
Merci.

 

[jeanpierre]

Re : Combinaison

Bonsoir yanic2020,

Toutes les combinaisons de 1 à 21 sur 8 chiffres cela fait : 203490

Avec : =COMBIN(21;8)

Bonjour la lecture....

Bonne soirée.

Jean-Pierre

 

[yanic2020]

Re : Combinaison

Bonjour
ce que je cherche exactement et un classeur avec toutes les combainaisons possible de 8 chifres de 1 à 21
Merci.

 

[jeanpierre]

Re : Combinaison

Re,

Ce que je disais avec "bonjour la lecture", c'est plus de trois colonnes sur 65536 lignes...

Tu as du courage, c'est bien....

Fais une recherche sur ce mot "combinaison", il y a quelques fils qui en parlent.

Regarde aussi les cinq discussions similaires en bas de ce fil.... peut-être des solutions de calcul....

Néanmoins, calculer toutes les possibilités, sans doublons, risquent de mettre à mal ton PC, le ventilo qui va tousser grave.... etc et j'en passe....

Bref que du joyeux.

 

[Cousinhub]

Re : Combinaison

Bonsoir,

Re-, JP

je ne suis pas fort en math...

Cependant, je crois que le nombre de combinaisons possibles avoisinerait la distance Terre - Soleil....

Normalement, 8 sur 21 donne cette possibilité :

=21*20*19*18*17*16*15*14*13*12*11*10*9

soit un résultat, arrondi.... de :

1 267 136 462 592 000

possibilités....

A moins que je ne me trompe.... (ce qui est fort possible....)

Mais, bon, Faut pas rêver...

 

[JJ1]

Re : Combinaison

Bonjour,
Voici une petie macro.
Je me suis limité à 4 nombres de 1 à 21, rajoute 4 variables E F G H:

Sub Combi()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As Long
For A = 1 To 21
For B = A + 1 To 21
For C = B + 1 To 21
For D = C + 1 To 21
X = X + 1
Range("A" & X) = A
Range("B" & X) = B
Range("C" & X) = C
Range("D" & X) = D
Next D
Next C
Next B
Next A
End Sub

Bon samedi

 

[mercant76]

Re : Combinaison

bonjour à tous,

le nombre de combinaisons pour 8 sur 21 est : 203490

pour le nombre de combinaisons 8 sur 21 :

on calcule d'abord : 21*20*19*18*17*16*15*14
soit les 8 chiffres,
et on divise ce résultat par : 1*2*3*4*5*6*7*8

pour n'avoir que les combinaisons uniques sans " ordre et désordre "

@+

 

[jeanpierre]

Re : Combinaison

Bonjour yanic2020, (l'heureux) bhbh (Nouméa bientôt), mercant76,

Mercant76, pourquoi se casser la tête avec des multiplications qui peuvent n'en plus finir puisque la fonction COMBIN(...;...) le fait très bien.

Bonne journée tous.

Jean-Pierre

 

[mercant76]

Re : Combinaison

bonjour Jean Pierre, et à tous,

je suis d'accord, j'avais vérifié que le résultat "calcul" était le même qu'avec combin.

c'est juste pour avoir une solution sans Excel ( pardon, je ne pronerais plus de se passer d'Excel ! )

@+

 

[Gael]

Re : Combinaison

Bonjour à tous,

Ci-joint la procédure de Myna Larson paramétrée pour ce que tu souhaites.

Il suffit de lancer la procédure "Listpermutations" et d'attendre 1 ou 2 minutes la fin du traitement, le résultat se met sur une nouvelle feuille en plusieurs colonnes.

@+

Gael