A la recherche d'une solution

Menezbarry Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   -
Quelles sont les combinaisons possibles lors d'un tirage avec remise de 3 numeros parmis 16 numeros numérotés de 1 a 16?

6 réponses

UnGnU Messages postés 1468 Statut Contributeur 158
 
BONJOUR !

Réponse là !

De rien !
0
DjiDji59430 Messages postés 4294 Date d'inscription   Statut Membre Dernière intervention   714
 
Bonjour,

Va voir là :

https://www.dcode.fr/combinaisons

Crdlmt
0
Menezbarry Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Temps mort dû a l'occupation mais voilà l'inexistant de la combinaison (16 9 6). Au fait il ne figure pas dans cet ordre.c'est justifiable?
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 752
 
Bonjour,

Il y a 4096 combinaisons possibles

Petite macro pour les afficher toutes
Sub tirages()
For n = 1 To 16
For m = 1 To 16
For j = 1 To 16
tir = n & ", " & m & ", " & j
x = x + 1
Range("B" & x) = tir
Next
Next
Next
End Sub

Cdlmnt
Via
0
Menezbarry Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour l'intervention mais je m'y vois pas bien dans le romaine alors Jaimerais que vous me guidiez un peu Si possible pour les afficher.
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 752
 
Voilà un exemple
https://mon-partage.fr/f/bsqf8FNb/
0
Menezbarry Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Finalement je n'arrive pas a ouvrir le fichier combinaisons xlms. Ya une solution a cela?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 781
 
Bonjour,

Places cette formule en A1 :
=MOD(ENT((LIGNES($1:1)-1)/(16^(COLONNES($A:A)-1)));16)+1
tires la jusqu'en C1 (3 colonnes)
Puis tires A1:C1 jusqu'en A4096:C4096
0
DjiDji59430 Messages postés 4294 Date d'inscription   Statut Membre Dernière intervention   714
 
Bonjour a tous

On sort plusieurs fois la meme combinaison, en realite, il n'y en a que 560

123, c'est pareil comme tirage que 132 ou 321.

Ce ne sont pas des arrangements que Menezbarry demande
Crdlmt
0
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 781
 
Alors :
Sub test()
Dim c As Range
   Set c = [A1]
   c.Resize(1, 3).EntireColumn.Clear
   For a = 1 To 16
     For b = a + 1 To 16
       For d = b + 1 To 16
         c.Offset(0, 0).Value = a
         c.Offset(0, 1).Value = b
         c.Offset(0, 2).Value = d
         Set c = c.Offset(1)
       Next
     Next
   Next
   c.Resize(1, 3).EntireColumn.AutoFit
End Sub

Cdlt
0